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his  report  is  composed  of  studies  that  have  been  conducted  to  develop  the  NLS 
system  as  an  on-line  programming  environment  and  to  provide  an  on-line  JOVIAL 
Interactive  debugger  with  the  capabilities  to  debug  JOVIAL  language  programs. 
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Addendum  Technical  Report  I  provides  an  extensive  set  of  commands  for  using 
the  JDAD  Debugger.  Addendum  Technical  Report  II  provides  a  generalized 
approach  to  debugging  and  describes  the  NLS/NSW  Do-All  Debugger  (DAD) . 
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EVALUATION 


The  work  described  in  the  final  technical  report  and  the  addendum 


reports,  one  and  two,  represents  a  significant  accomplishment  in 


environment 


The  NLS  system  represents  a  significant  programming  tool  that  can 


be  utilized  to  develop  software  programs.  The  high  cost  of  developing 


software  has  been  established  in  numerous  studies.  One  way  of  reducing 


this  cost  is  to  develop  standard  programming  environments.  Parts  of 


these  programming  environments  will  require  sophisticated  on-line 


debuggers.  This  effort  establishes  the  feasibility  of  one  such  debugger 


for  JOVIAL  language  programs 


The  additions  to  NLS  described  in  this  effort  also  provide  the 


types  of  capabilities  that  must  be  present  in  a  standard  software 


programming  environment 


The  result  of  this  effort  has  been  to  extend  the  capability  of 


tools  needed  in  a  software  programming  environment  and  establish 


procedures  and  methods  for  their  implementation 
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Introduction 

On-Line  Programmers  Management  System: 
r'inal  Technical  heport 

Augmentation  hesources  Center,  Tymshare,  Incorporated  1 

Introduction  2 

This  report  is  submitted  in  fullfillment  of  TasK/Technical  he- 
quirement  A . 1 . 1  of  the  On-Line  Programmers  Management  System 
project  (hADC  -  Shi  Contract  Number  F30602-77-C-C 1 65  ;  Shi  - 
'lymshare  Subcontract  Number  14394).  The  Statement  of  work  said 
i n  part :  2a 

TASKS  AND  TECHNICAL  REQUIREMENTS  2a1 

A. 1.1  Develop  a  list  of  additions  and  modifications  to 
the  NLS  family  of  tools  to  create  an  on-line  programming 
environment  based  on  the  IBM  evaluation  of  NLS’s  program¬ 
ming  environment,  the  IBM  Structured  Programming  Series, 
and  the  contractors  own  suggestions.  2a1a 

A. 1.2  Upon  receipt  of  written  approval  from  the  con¬ 
tracting  officer,  or  of  his  authorized  representative, 
implement  the  approved  suggestons  from  the  list.  2a1b 

4 . 1 . 3  Demonstrate  a  Jovial  interactive  debugger 

utilizing:  2a  1  c 

A. 1.3.1  Language  module  (LK)  and  operating  system  module 
(CS)  for  FDP-1C  2a  Id 

4. 1.3*2  Jovial  compiler  on  PDP-10  2a1e 

4. 1.3.2  A h P A  Network  2a1f 

4. 1.3.4  NLS/NSW  Do-All  Debugger  (DAL)  2a1g 

REPORTING  FECUlhE KENTS  2a2 

--  An  interim  technical  report  describing  the  results  of 
the  software  engineering  tools  study,  including  ar.  or¬ 
dered  list  of  recommended  additions  to  NLS.  2a2a 

--  A  final  technical  report.  2a2b 

This  is  the  report  mentioned  immediately  above.  2b 
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Summary 


Summary  3 

As  required  by  the  Statement  of  kork,  we  have  created  a  version 

cf  the  ARC  Do-All  Debugger  (DAD)  for  use  with  programs  written 

in  Jovial  and  which  are  compiled  on  the  DEC  PD P-10  running 

under  the  TEREX  operating  system.  Attached  is  a  user  guide  to 

this  new  Jovial  DAD  (JDAD).  3a 

in  the  Interim  Technical  Report  for  this  project  submitted  on 
17  January  1975  as  ARC  Journal  document  (46236, ),  we  presented 
an  ordered  list  of  additions  and  modifications  to  NLS  program¬ 
ming  tools.  Since  then  we  have  worked  on  and  completed  the 


following  of  those  recommendations:  3b 

1.  Enable  NLS  to  start  DAD  and  JDAD.  3b1 

2.  Encapsulate  the  JOVIAL  compiler.  3b2 

3.  Document  the  encapsulation  facility.  3b3 

4.  Generalize  the  PROGRAMS  subsystem  and  its  templates.  5b4 

Additionally,  we  have  created  a  detailed  design  for  the  follow¬ 
ing  task:  3c 

5.  An  interactive,  conditional,  iterative  Process  system.  5c1 


The  first  four  of  the  tasks  have  resulted  in  systems  and  tools 
which  were  demonstrated,  along  with  the  JDAD  debugger,  to  the 
technical  monitor  of  the  project  at  ARC  in  Cupertino  during  the 
week  of  25  April  1979-  These  tasks  are  discussed  in  the  fol¬ 
lowing  sections  of  this  report.  The  last  section  of  this  re¬ 
port  is  a  glossary  of  terms  that  may  be  unfamiliar  to  readers. 

It  is  recommended  that  any  reader  unfamiliar  with  NLS  or  TENEX 
terminology  read  the  glossary  before  reading  the  following  sec¬ 
tions.  3d 
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Tasks  Completed 
Task  1:  Spliceable  DAD 


Detailed  Discussion  of  Tasks  Completed  H 

Task  1:  Enable  N LS  to  start  DAD  and  JDAD:  A  "Spliceable"  DAD.  Ha 

introduction  Hal 

A  facility  was  added  permitting  the  DAD  and  JDAD 

debuggers  to  "splice"  themselves  into  the  fork  structure 

for  an  already  executing  program.  Before  this  feature 

was  available,  DAD  or  JDAD  (which,  for  simplicity,  will 

be  called  [JjDAD  in  the  following)  had  to  be  started  at 

the  Lxec  level;  from  the  debugger,  it  was  then  necessary 

to  start  the  programs  to  be  debugged.  Hala 

Under  the  new  facility,  a  user  would  cause  an  executing 
program  to  be  interrupted,  e.g.,  via  control-C,  and  issue 
a  special  command  to  the  Lxec.  The  command  would  result 
in  [J]DAU  being  spliced  into  the  proper  place  in  the 
interrupted  program's  fork  structure.  Halb 

As  an  example  of  the  benefits  of  such  a  facility,  con¬ 
sider  a  non-programmer  doing  normal  work  in  some  program. 

An  unexpected  bug  may  be  encountered.  That  user  may  then 
call  in  a  programmer  who  could  access  [  J ] DAL  to  investi¬ 
gate  the  bug  with  most  of  the  bug's  context  intact.  Hale 

Tasks  Performed  to  Create  a  Spliceable  DAD  or  JDAD  Ha2 

The  TLNEX  Exec  was  modified  to  create  a  new  [J]DAD  com¬ 
mand  which  would  splice  in  an  instance  of  the  [J]DAD  pro¬ 
gram  between  the  EXEC  fork  and  its  subsidiary  forks 
(which  presumably  are  running  a  program  which  one  or  more 
processes/forks.)  After  splicing  in  [JjDAD,  execution 
would  begin  at  a  new  entry  point  which  would  cause  the 
new  [J]DAD  code  described  below  to  be  executed.  HaZa 

The  [J]DAD  Dispatch  Module  (which  performs  bookkeeping 
operations  on  tfe  internal  [ J ] DA D  data  structures  con¬ 
cerned  with  the  processes  being  debugged)  and  the  [J]DAD 
Operating  System  Module  (which  interfaces  [JjDAD  to  spe¬ 
cific  operating  systems,  in  the  current  case  TENEX  and 
TOPb-ZO)  were  modified  so  [JjDAD  could  begin  execution  at 
an  alternate  entry  point.  If  started  at  this  entry 
point,  [jjDAD  would  query  the  operating  system  for  infor¬ 
mation  concerning  processes  in  the  fork  structure 
underneath  it  and  the  particular  states  of  those  forks.  HaZb 

[JjDAD  then  establishes  states  of  the  forks  and  their 
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Tasks  Completed 
Task  1:  Spliceable  DAO 


programs  in  its  internal  data  structures  comparable  to 
the  states  which  would  exist  if  the  program  were  ini¬ 
tially  executed  under  [J]DAD  and  the  programmer  had  typed 
the  control-L  interrupt  character  to  enter  the  debugger.  *)a2c 

After  its  inti  a  1  polling  of  fork  status  information  and 
state  determination  and  establishment,  [J]DAD  may  be  con¬ 
tinued  in  its  usual  fashion  to  set  breakpoints,  examine 
and  change  code,  and  in  general  perform  its  usual 
debugging  tasks.  Va2d 
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Tasks  Completed 
Task  Z:  Encapsulating  the  JOVIAL  Compiler 


Task  2:  Encapsulate  the  JOVIAL  compiler.  4b 

Once  the  JOVIAL  compiler  is  encapsulated,  JOVIAL  source  code 
programs  that  are  in  NLS  files  may  be  directly  compiled  with 
a  variation  of  the  PROGRAMS  subsystem's  Compile  File  com¬ 
mand,  without  the  user  directly  having  to  go  through  inter¬ 
mediate  steps  involving  a  sequential  file  (as  is  presently 
the  case).  Also,  the  encapsulation  of  the  JOVIAL  compiler 
will  allow  the  use  of  the  L1EKARY  subsystem  for  semi¬ 
automatic  JOVIAL  compilations.  4b1 

Under  the  stategy  implemented,  source  code  for  JOVIAL  pro¬ 
grams  is  composed  and  edited  in  AUGMENT.  The  "Compile 
JOVIAL"  command  is  then  invoked  creating  a  temporary  sequen¬ 
tial  file  (invisible  to  the  user).  The  encapsulated  JOVIAL 
compiler  is  executed,  using  this  sequential  file  as  input, 
and  also  using  switches  which  may  be  set  as  options  to  the 
command.  Object  code  is  compiled  to  the  specified  location; 


error  messages  and  diagnostics  are  entered  into  the  desired 
locations.  U  b  2 

The  following  is  the  syntax  for  the  command  (extracted  from 
the  Command  Meta  Language  grammar  of  the  demonstration  sys¬ 
tem  )  :  4b5 

"COMPILE"  4  b  ja 

<"jovial  program  in  file">  4  b  5a  1 

LSELU"GLDFlLEhAME")  %  the  specification  of  the  AUG¬ 
MENT  JOVIAL  source  code  file?  4  b  5a2 

<"to">  4  b  5a  5 

LSEL ( # " TEXT "  )  %  specification  of  the  name  of  the  ob¬ 
ject  code  file  %  4b5a4 

(OPTION  <"enter  switches"?  4b5a5 

getswitches  %  any  number  of  switches  as  outlined 
below  may  be  specified  %]  4b5a5a 

[OPTION  <"ccmpcol  filename"?  LSEL (# "T EXT ") ]  4b5a6 

CONFIRM  4b5a? 

The  following  are  valid  switches:  4b5b 


("CROSSREF"/  "ACROSS"/  "SYNTAX"/  "INDENT"/  "  K  B  C "  / 
"STATISTICS"/  "MACROCODE"/  "LGRSEG"/  "hlSEG"/ 

"NONEST"/  " 1 S D " /  " N C P T " /  "L1STCCPY"/  "NOSOURCE"/ 

"DEFINE"/  "NOTRACL"/  "N01NFCRM"/  "NOWAhNING"/  "MIS¬ 
SION"/  "NCEACK"/  "KIGhSTAl "/  "KA10"/  "K110"/  "MAGIC"/ 
"ASSEM")  4b5b1 
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Tasks  Completed 

Task  3:  Encapsulation  Facility  Locumentation 


Task  3:  Document  the  encapsulation  facility.  4c 

Introduction  4c1 

Encapsulation  is  a  technique  used  to  enable  a  process  to 
control  the  execution  environment  of  other  processes. 

The  controlling  process  does  this  by  declaring  that  it 
wishes  to  trap  selected  system  calls  (JSYS's)  when  exe¬ 
cuted  by  other  processes.  When  a  monitored  process 
attempts  to  execute  a  system  call  that  will  be  trapped  it 
is  suspended  and  the  monitoring  process  is  notified. 

After  gaining  control  the  monitoring  process  may  take  any 
action  it  deems  neccessary.  It  may  handle  the  call  it¬ 
self  or  it  may  allow  the  monitored  process  to  perform  the 
call  or  it  may  modify  the  arguments  to  the  system  call 
before  it  is  handled.  4c1a 

This  discussion  here  concerns  taking  a  process  which  cur¬ 
rently  runs  under  TENEX  or  T0PS-2C  and  encapsulating  it 
under  AUGMENT.  The  purpose  of  encapsulation  in  this  set¬ 
ting  is  to  allow  a  user  to  run  a  process  not  currently 
provided  directly  in  the  AUGMENT  environment,  perhaps 
using  AUGMENT  files  as  input  to  the  process  and  providing 
entry  via  AUGMENT-style  commands.  4c1b 

Description  of  Encapsulation  Technique  4c2 

There  are  three  things  that  need  to  be  done  in  AUGMENT  in 

order  to  encapsulate  a  process  designed  to  run  under 

TENEX.  or  T0PS-20:  4c2a 

1.  A  correspondence  table  specifying  each  JSYS  to  be 
trapped  and  the  address  of  the  procedure  which  will 
handle  the  trapped  JSYS  must  be  included  as  a  global 
declaration.  The  table  below  specifies  that  the 
three  JSYS's  BOUT,  GTJFN,  and  PB0U1  will  be  trapped  by 
NLs  and  they  will  be  handled  by  procedures  named 
BOUTKNDLER,  GTJFNKNDLER,  and  PECUThNDLEK  respectively. 


The  table  must  end  with  -1,  -1). 

4c2a  1 

EXAMPLE: 

4c2a2 

jsys  handling  correspondence  table  i 

4c2a2a 

DECLARE 

4c2a2a 1 

Jtraps  =  ( 

4c2a2a2 

Spbout,  Jpbouthndler , 

4c2a2a2a 

$bout,  Jbouthndler, 

4c2a2a2b 

$gt Jfn ,  tgt jfnhndler  , 

4c2a2a2c 
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Tasks  Completed 

Task  3:  Encapsulation  Facility  Documentation 


-1,-1);  *4c2a2a2d 

2.  Write  code  to  start  up  the  specified  process  in  an 
inferior  fork.  *lc2a3 

The  steps  to  do  this  are:  M  c  2  a  3  a 

a. )  First  create  the  fork  and  load  the  process 
that  is  to  run  in  the  fork.  This  is  done  by 
first  calling  the  backend  procedure  CRFOKK  with 
no  arguments.  CRFCRK  will  return  a  fork  handle 
number  which  must  be  saved  for  later  procedure 
calls.  The  process  is  then  loaded  into  the  new 
fork's  address  space  by  a  call  on  GTFKF1LE.  The 
arguments  for  GTrKFlLE  will  be  the  fork  handle 
number  and  the  JFN  of  the  save  file  to  be 

loaded.  4c2aja1 

b. )  Define  which  JSIS's  are  to  be  trapped  and 

what  procedure  is  to  handle  the  jsys  when  the 
interrupt  occurs.  This  is  done  by  calling  the 
backend  procedure  DEFINE TRAPS  with  the  address 
of  the  jsys  correspondence  table  as  its  argu¬ 
ment.  which  modifies  two  NLS  tables:  B1TTABLE 
indicates  which  JSIS's  are  to  be  trapped  by  set¬ 
ting  the  appropriate  bit  and  DT  ABLE  indicates 
the  address  of  the  procedure  to  be  called  when  a 
particular  jsys  is  trapped.  **c2a3a2 

c. )  Call  the  backend  procedure  SETTRAPS  with 

the  fork  handle  of  the  process  being 
encapsulated,  a  channel  number  over  which 
interrupts  will  be  transmitted  to  the  controiing 
fork,  ana  the  desired  interrupt  level  as  argu¬ 
ments.  Me  2a  3a  3 

d. )  Save  the  terminal  characteristics  in  case 
the  encapsulated  process  changes  them  by  calling 
the  backend  procedure  SAVETRM.  This  procedure 
will  return  three  results  which  must  be  saved 
for  a  later  procedure  call.  The  results  are: 
the  terminal  mode  word,  terminal  output  control 

word  one  and  terminal  output  control  word  two.  Mc2a3aM 

e. )  Wait  for  the  inferior  fork  to  finish  by 
calling  the  backend  procedure  WAITF’RK  with  the 

fork  handle  as  its  argument.  Uc2a3a5 
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Tasks  Completed 

Task  3:  Encapsulation  Facility  Documentation 


f.)  Call  the  backend  procedure  CLEANUP.  This 
procedure  will  deactivate  the  channel  connec¬ 
tion,  zero  out  B1TTABLE  and  DTABLE,  kill  the 
inferior  fork,  and  release  the  JFN  of  the  sav 
file . 


4c2a  3a6 


g.)  Restore  the  terminal  characteristics  by 
calling  the  backend  procedure  RSTRTRM  whose  ar¬ 
guments  will  be  the  values  returned  by  SAVTRM.  4c2a3a7 

The  procedure  below  is  a  typical  example  of  how  a 
process  is  encapsulated.  All  procedures  mentioned 
can  be  found  in  the  Encapsulator  Module  <nlsbesrc, 
encapsulator , > .  4c2a3b 


EXAMPLE: 


4c2a  3c 


(runit)  %  run  an  encapsulated  process  % 

PROCEDURE (savjfn)  ;  4c2a3c1 

%  Procedure  description  4c2a3c1a 

FUNCTION  4c2a  3e 1  a  1 

This  procedure  is  responsible  for 
starting  up  and  running  the 
encapsulated  process  as  well  as  clean¬ 
ing  things  up  when  the  process  has  ter¬ 
minated.  Note  that  three  globals  are 
required:  4c2a3c1a1a 

chan  -  is  the  channel  used  in 
issueing  the  interrupt  usually  a 
number  in  the  high  twenties  or  low 
thirties.  4c2a3c1a1a1 

ilev  -  interrupt  it  will  usually  be 
3  .  4c2a3c 1  a 1a2 

frkhandle  -  handle  used  to  identify 
the  encapsulated  fork.  4c2a3c1a1a3 

ARGUMENTS  4c2a3c1a2 

savjfn  -  jfn  of  sav  file  to  be  run  in 
the  new  fork  4c2a3c1a2a 

hESULTS  4c2a3c1a3 

none  4c2a3c1a3a 


NON-STANDARD  CONTROL 


%  Declarations  % 
( trmmcde ) ; 

( ctlwd 1 ) ; 

( ctlwd2 ) ; 


4c2a3c 1 a4 
4c2a3c 1a4a 
4c2a3c 1a5 
4c2a3c 1 b 
4c2a3c 1 b 1 
4c2a3c 1b2 
4c2a3c1b3 
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%  define  channel  and  interrupt  level  for 
jsys  trapping  in  fork  to  be  created  %  4c2a3c1c 

chan  _  34;  4c2a3c1c1 

ilev  _  3;  4c2a3c1c2 

%  guard  against  errors  %  4c2a3c1d 

INVOKE (catch) ;  4c2a3c1d1 

%  create  new  fork  and  enable  all  capabilities 
%  4c2a5c1e 

frkhandle  _  crfork();  4c2a5c1e1 

get  and  load  the  .sav  file  to  run  in  the 
new  fork  %  4c2ajc1f 

gt  f  kf  i  le  (  f  r  khand  1  e  ,  savjfn);  4c2a3c1f1 

$  define  jsys's  to  be  trapped  and  set  the 


% 


traps  for  the  new  fork  % 
definetraps($jtraps)  ; 
set t ra ps ( f r khand 1 e  ,  chan,  ilev); 

H  save  terminal  characteristics  J 

trramcde  _  savtrm(  :ctlwd 1 ,  ctlwd2); 

%  wait  until  it  finishes  % 
waitfrk( frkhandle)  ; 

%  cleanup  % 

cleanup! frkhandle ,  savjfn,  chan); 

J  drop  the  catchphrasej 
DRGP(catch)  ; 

%  Return  % 

RETURN  ; 

%  catchphrase  definition  % 

(catch)  CATChPhhASE( ) ; 

BEGIN 

CASE  SIGNALTYPE  OF 
s  aborttype  : 

BEGIN 

DISABLE (catch ) ; 

cleanup ( f rkhandle ,  savjfn, 


END; 

ENDCASE ; 
COM  1NUE  ; 
END; 


END  . 


4c2a3c1g 
4c2a3c Igl 
Mc2a  3c 1 g2 
4  c  2  a  3  c  1  h 
4  c  2  a  3  c  1  h  1 
4c2ajc 1 i 
4c2a  3c 1 i  1 
4c2a3c  1  j 
4c2a  3c 1 j 1 
4c2a5c 1 k 
4c2a3c Ik  1 
4c2a3c11 
4c2a3c 1 1 1 
4  c2a  3c  1  m 
4c2a  3c 1 m 1 
4c2a  3c 1 m 1  a 
4c2a3c 1 m 1 b 
4c2a  3c 1 m 1 b 1 
4c2a3c1m1b1a 
4c2a3c 1ml b 1 b 
chan ) ; 

4c2a  3c 1 m 1 b 1 c 
4c2a  3c 1 m 1 b 1 d 
4c2a3c1m 1b2 
4c2a  3c 1 m 1 c 
4c2a3c1rc Id 
4c2a  3c  1  n 


There  are  several  examples  of  processes  which  ter¬ 
minate  only  with  a  <*C>  which  would  return  control 
to  the  operating  system  rather  than  AUGMENT.  One 
way  to  handle  this  is  to  have  a  handler  detect  when 
the  desired  processing  has  completed.  The  handler 
will  then  set  a  global  flag  and  leave  the 
encapsulated  process  frozen  until  such  time  that 
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the  monitoring  process  sees  the  flag.  Instead  of 
waiting  until  the  inferior  fork  finishes  the  moni¬ 
toring  procedure  will  have  to  look  at  the  flag  from 
time  to  time.  When  the  flag  is  seen  the  monitoring 
routine  can  then  kill  the  fork  without  creating  any 
problems.  4c2a3d 

3.  Write  the  procedures  that  will  handle  the  trapped 

j  sy s ' s .  4c2a4 

The  programmer  will  have  to  know  something  (per¬ 
haps,  a  great  deal)  about  the  process  he  wishes  to 
encapsulate  in  order  to  write  the  handlers.  Input 
and  output  are  the  primary  concerns  here.  If  the 
process  expects  a  command  from  the  terminal  the 
handler  may  feed  that  command  to  the  process. 

Also,  an  AUGMENT  file  may  be  handed  to  the  process 
rather  than  a  sequential  file.  The  handler  must 
know  what  the  encapsulated  process  is  requesting 
and  how  to  satisfy  that  request.  The  handlers  may 


have  to  keep  track  of  many  different  states  in 

order  to  do  this  successfully.  4c2a4a 

JSYS  handlers  are  passed  four  arguments:  4c2a4b 

A  fork  handle  4c2a4b1 

The  current  JSYS  number  4c2a4b2 

The  address  where  the  encapsulator  saves  the 
current  fork  PC  4c2a4b5 


The  address  of  a  16  word  block  containing  the 
content  of  the  fork’s  registers 

JSYS  handlers  return  two  boolean  values: 

handled 

TRUE  if  JSYS  has  been  handled 
FALSE  let  TENEX  handle  it 
unfreeze 

TRUE  to  unfreeze  the  fork 
FALSE  to  leave  it  frozen  % 


4c2a4b4 
4c2a4c 
4c2a4c  1 
4c2a4c  1  a 
4c2a4c 1 b 
4c2-4c2 
4c2a4c2a 
4c2a4c2b 
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Lncapsulator  Module 

The  Lncapsulator  Module  is  a  collection  of  A l1  G MEM  rou¬ 
tines  located  in  <nlsbesrc , encapsulator ,  >  and  are  used  to 
handle  the  lev*  level  coding  necessary  to  perform  an 
encapsulation  . 

It  has  three  types  of  routines.  Cne  group  of  routines 
deals  with  starting  up  the  encapsulation  and  cleaning  up 
when  it  is  finished: 

a. )  Create  the  new  fork. 

b. )  Define  and  set  the  traps. 

c. )  Reset  global  tables  when  encapsulation  is  fin¬ 
ished  .  . 

d. )  Save  and  reset  terminal  characteristics. 

Another  group  of  routines  are  invoKed  by  the  interrupt 
mechanism.  When  an  interrupt  occurs  LUMMY JSYSThAFPSl  is 
invoked  and  calls  other  routines  in  the  Lncapsulator 
Module  to  accomplish  the  following: 

a. )  Save  the  state  of  the  superior  fork. 

b. )  Dispatch  the  interrupt  to  the  appropriate 
handler  . 

c. )  Restore  the  state  of  the  superior  fork. 

d. )  Let  the  inferior  fork  continue. 

e. )  Continue  the  superior  fork  in  the  state  existing 
when  the  interrrupt  occurred. 

The  remaining  routines  are  designed  to  support  writing  in 
the  inferior  fork's  accumulators  and  address  space. 

Lncapsulator  Subsystem 

The  encapsulator  subsystem  is  designed  to  assist  the 
programmer  faced  with  an  encapsulation  project  as  well  es 
serving  as  a  tool  in  discovering  the  nature  of  any  pro¬ 
cess.  It  allows  the  user  to  run  the  process  as  if  it 
were  running  uder  the  operating  system  while  tracing  all 
JSYS  calls. 


M7236 

Mc3 

Mc3a 

Me  3b 
Me  3b  1 
Mc3b2 

Mc3b3 

Me  3b  M 

Mc3c 
Me  3c  1 

Me  3c2 
Me  3c  5 

Me  3c  M 
Me  3c5 
Me  3b 

McM 

McMa 
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The  subsystem  has  a  single  command  which  asks  the  user  to 
specify  an  executable  program  file  (e.g.,  a  TENEX  SAV 
file)  that  is  to  be  encapsulated,  what  information  is 
desired  (a  trace  of  all  JSYS  calls,  a  frequency  count,  or 
both)  and  how  that  information  is  to  be  presented  (dis¬ 
played  at  the  terminal  or  recorded  in  a  file).  The  in¬ 
formation  obtained  consists  of  the  identification  of  the 
JSYS  trapped  and  its  arguments.  Actually,  the  contents 
of  the  first  four  registers  are  obtained  regardless  of 
the  number  of  arguments  expected  for  the  jsys. 

After  the  command  is  entered  the  specified  process  is 
encapsulated  trapping  each  JSYS,  obtaining  the  desired 
information  about  the  JSYS  and  letting  the  operating  sys¬ 
tem  handle  the  call.  Thus,  the  process  will  run  as  it 
would  if  it  was  running  directly  under  the  operating  sys¬ 
tem  . 

Currently,  only  JSYS's  whose  numbers  are  in  the  ranges  1 
to  12E,  1 A B  to  315b,  and  317B  to  337b  are  trapped.  The 

TIKE,  GJ1NF,  and  J0B1M  JSYS's  are  not  included  because 
TENEX  does  not  execute  them  properly  after  they  have  been 
trapped.  These  JSYS's  should  never  be  trapped  in  any 
encapsulation.  There  may  be  others  that  cause  problems 
and  it  would  be  useful  if  they  are  reported  when 
encountered  . 

If  one  is  working  in  display  mode  and  requests  a  trace, 
the  information  about  each  JSYS  trapped  will  be  displayed 
in  the  command  feedback  window  and  requires  an  OK  before 
the  process  is  continued.  This  allows  the  user  to 
contemplate  the  flow  of  the  process  but  can  be  very 
anoying  if  a  single  JSYS  is  executing  inside  a  loop  a 
large  number  of  times.  In  typewriter  mode  no  OK  is  re¬ 
quired  and  the  information  will  come  out  as  fast  as  it  is 
encountered  . 

The  frequency  distribution  table  will  not  be  displayed  or 
recorded  until  the  process  terminates.  Thus,  one  will 
not  be  able  to  get  a  frequency  distribution  of  a  process 
that  is  normally  terminated  by  a  <“C>  since  you  will  be 
returned  to  the  operating  system  rather  than  the 
encapsulator  subsystem. 


47236 
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Task  4:  Generalize  the  PROGRAMS  subsystem  and  its  templates.  4a 

The  AUGMENT  PROGRAMS  subsystem  provides  access  to  tools 
which  aid  in  the  program  development  process  by  permitting 
compilation  and  testing  of  programs  and  by  permitting  inser¬ 
tion  of  language  dependent  program  entity  templates.  4d1 

The  PROGRAMS  subsystem  is  currently  tailored  for  the  L10  and 
CML  languages.  Re  would  like  to  make  its  features  available 
for  other  computer  languages,  e.g.,  JOVIAL.  The  main  idea 
was  to  develop  a  framework  and/or  methodology  for  making  the 
facilities  of  the  PROGRAMS  subsystem  easily  extensible  to 
new  computer  languages.  In  the  demonstration  project,  the 
commands  and  templates  associated  with  the  PROGRAMS  system 
were  expanded  to  deal  with  the  JOVIAL,  META  (the  ARC  meta¬ 
compiler),  and  CML  languages  as  well  as  L10.  Structures 
relevant  to  these  different  languages  were  created  as 
templates  and  entered  as  options  into  the  PROGRAMS  commands.  4d2 

Appendix  1  outlines  the  command  syntax  for  the  new  programs 
subsystem.  Appendix  2  presents  the  current  language 
dependent  programming  templates  inserted  via  commands  in  the 
new  PROGRAMS  system  as  extracted  from  <  SSSRC,  PROGRAMS- 
TEMPLATES,  >.  4d3 
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Task  5:  An  Interactive,  conditional,  iterative  Process  system. 

NLS  currently  has  a  "Process  commands"  facility,  but  it  is 
rather  limited.  Process  commands  are  currently  limited  to 
be  the  equivalent  of  NLS  commands  --  it’s  roughly  equivalent 
to  what  a  user  could  type  as  input,  e.g.,  there  are  cur¬ 
rently  no  facilities  for  iteration,  or  for  conditionally 
performing  cne  set  of  commands  rather  than  another  set,  or 
for  interacting  with  the  user  in  the  midst  of  the  execution 
of  the  Process  commands. 

The  general  idea  would  be  to  provide  a  "Process  Language" 
that  had  all,  or  almost  all,  of  the  features  of  a  computer 
language  such  as  ALGOL,  e.g.,  conditional  statements, 
iterative  statements,  block  structure,  subroutines,  constant 
and  variable  data  declarations.  In  addition  the  language 
would  have  provisions  for  interactions  with  the  user.  Calls 
on  L10  procedures  probably  would  also  be  possible. 

Process  Language  "programs"  probably  would  be  interpreted 
rather  than  compiled,  probably  in  a  manner  similar  to  the 
present  Process  commands  facility. 

Some  initial  design  thoughts  on  such  a  facility  may  be  found 
in  <25046, >.  It  was  produced  for  the  NSN  project  and  ap¬ 
pears  as  Appendix  3  to  this  report.  It  is  applicable  to  the 
AUGMENT  command  language.  Using  this  as  a  guide,  we  have 
created  a  design  for  the  syntax  for  a  complete  Process 
Language.  This  syntax  appears  as  Appendix  4. 
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Appendix  1 :  Command  Syntax  for  the  hew  AUGMENT  PROGhAMS  Subsystem  5 

Ihis  appendix  outlines  the  command  syntax  for  the  new  PROGRAMS 
subsystem.  lhe  syntax  is  presented  in  a  modified  Command  beta 
Language  description.  5a 

Notes:  5a1 

"  !  2  "  stands  for  "  !  2  !  "  5a1a 

A  final  CONFIRM  is  left  implicit  for  all  commands.  5a1b 

Curly-brackets  are  used  to  indicate  a  CML  LOOP  sort  of 

thing;  exit  from  the  loop  is  made  via  an  CK.  5a1c 

Rules  used  elsewhere:  5a2 

anyinput  =  anytext  LSLL  /  fstructure  <"at">  DSEL  5a2a 

anytext  =  Character  /  Invisible  /  Text  /  Visible  / 

Word  /  Statement  5a2a1 

fstructure  =  5a2a2 

[0P110N  <"Filtered:  ">  VWSPECS]  (branch  /  Group  / 

Plex  /  Rest  /  File)  5a2a2a 

user prog  =  Con tent -Analyzer  /  Sort -Key  /  Sequence- 
Generator!2  5a2b 

compileunit  =  5a2c 

userprog  /  Run-Program  /  5a2c1 

Subsystem  /  5a2c2 

Grammar  /  Parse-Fe  (Code/Lata)  /  backend  /  Support- 
Module!2  /  5a2c2a 

LlO-Program  /  L 1  0 1 1 -Program ! 2  /  Cml-Program  /  Meta- 
Program  /  Jov ial- Program/  5a2c3 

Procedure  /  Coroutine!2  /  Parse-Fe  Function  / 

Catchphrase  !  2  5a2c*4 

Insert  S  for  L10  mode  h  5a3 

(  Program  5a3a 

/compileunit  5a3b 

/  lf-Then-tlse  /  Case!2  5a3c 

/  For  /  Loop !  2  /  Dc-Until  /  Co-While!2  /  llntil-Do  / 

While-Do  5a3d 

)  5a3e 

<"to  follow">  DSEL  [ LEVADJ ]  5a3e1 
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Insert  %  tor  CML  mode  t  5a*» 

Program  <"to  follow")  DSEL  [LEVADJ]  5a4a 


Insert  %  for  Meta  mode  %  5a5 

Program  <"to  follow">  DSEL  [LEVADJ]  5a5a 

Insert  %  for  Jovial  mode  %  5a6 

(  Program  5a6a 

/  Compool!2  Directive  /  Compool!2  Source  /  Procedure  5a6b 

/  If -Else  /  Switch  5a6c 

/  For  By-While  /  For  Then-While  /  While  5a6d 

/  Call  /  Procedures  Call  Declaration  5a6e 

)  5a6f 

<"to  follow">  DSEL  [LEVADJ]  5a6f1 

Insert  Comment  <"to  follow")  DSEL  %  for  any  mode  %  5a7 

Compile  5a8 

(  Content-Analyzer  <"in">  (anyinput  /  Program  <"AT"> 

DSEL)  5a8a 

/  Program  <"AT">  DSEL  <"using">  LSEL  <"to">  L3EL  5a8b 

/  compileunit  <"at">  DSEL  5a8c 

)  5a8d 

{  Record  <"errors">  <"at">  DSEL  5a6d1 

/  Load  <"after  compilation")  5a6d2 

/  Filtered  VWSPECS  5a8d3 

}  5a8d4 

Load  (Content-Analyzer  /  Programs  /  compileunit) 

<"named">  LSEL  5a9 

Deinstitute  userprog  5a10 

lnstitute!2  userprog  <"named">  LSEL  Sail 

Run  5a12 

(  Run-Program  <"named">  LSEL  5a12a 

/  Process  <"named">  LSEL  5a12b 

<"input  from")  5a12b1 

(  anyinput  5a12b1a 

/  Interactive  <"with  termination  character")  LSEL  5a12b1b 

/  Sequential-File  <"named">  LSEL  5a12b1c 

/  No-Input  5a12b1d 

)  5a 1 2b 1 e 

<"cutput  to")  5a12b2 

{  Nls-File  < " a t " >  LSEL  5a12b2a 

/  Terminal  5a12b2b 

/  Sequential-File  <"named">  LSEL  5a12b2c 

/  Registers  ...  5a12b2d 
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)  5a12b2e 

<"wait  for  completion  and  then  Kill?">  5a12b5 

(  Tes  /  ho  <"notify  at  completion?">  (Kes/No)  )  5a12b5a 

<"go?">  5a  1 2  b1* 

)  5a  1 2c 

Kill  Process  <"named">  LSEL  5a13 

bait  <"for  completion  and  then  Kill" >  Process 

<"named">  LSEL  5elH 

Shew  (Buffer  /  Insert -Mode  /  Process  <"named">  LSEL)  5a15 

Set  5a 1 6 

(  Euffer-Size  <"to">  LSEL  5al6a 

/  Insert-Mode  <"to">  (Cml  /  Jovial  /  L10  /  Meta)  5al6b 

)  5a  1 6c 

Reset  (Buffer-Size  /  Insert-Mode)  5a17 

Del ete ! 2  (All  /  Last)  5al8 

Invoke!2  (Dad  /  Ddt!2)  5a19 
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Appendix  2:  Language  Dependent  Programming  Templates  6 

The  following  are  the  current  programming  templates  inserted 
via  commands  in  the  new  PROGRAMS  system  as  extracted  from  < 


SSSRC,  PROGRAMS-TEMPLATES,  >: 

6a 

( cml ) 

6a  1 

(grammar ) 

6a  la 

$GR{ 

FILE  SubSysName  %  GRammar  { 

6a  1  a  1 

i 

COMPILE-INSTRUCTIONS  * 

6a  1  a  1  a 

INCLUDE  <SsSrc,  NLS-Grammar,  flags  !subsystems> 

6a  la  la  1 

f 

DECLARATIONS  % 

6a  1  a  1  b 

INCLUDE  <SsSrc,  NLS-Grammar,  declarations 

! universal) 

6a  1  a  1  b  1 

DECLARE  COMMAND  WORD 

6a  la  1 b2 

{subsystem  command  words  (should  be  100  to 

127)% 

6a1a  1b2a 

"COMMAND  1 "  =  100, 

6a 1  a  1  b2b 

"COMMANDn"  =  10n-1; 

6a  la  1  b2c 

u 

6a  la 1b2d 

DECLARE  FEFUNCT ION 

6a  la  1 b3 

f e  f unc  1  , 

6a 1  a  1 b3a 

f  ef uncn ; 

6a1a1b3b 

DECLARE  FUNCTION 

6a  la  1 b4 

PROCESS  =  " PR0CESSX"  ,  PACKAGE  =  "PCKX"  : 

6a 1  a  1  b4a 

xroutlne 1 , 

6a 1  a  1 b4a 1 

xroutinen ; 

6a1a1b4a2 

DECLARE  GLOBAL 

6a 1  a  1 b5 

globall,  i  short  description  of  globall 

* 

6a  la  1  b5a 

globaln;  {  short  description  of  globaln 

% 

6  a  1  a  1  b5  b 

DECLARE  VARIABLE 

6a  la  1 b 6 

variable  1 , 

6a 1  a  1  b6a 

var iabl en ; 

6a  1  a  1  b6b 

$t 

6a  la  1  b6c 

% 

COMMON-RULES  { 

6a  la  1c 

INCLUDE  <SsSrc,  NLS-Grammar,  rules  !universal>  6a1a1c1 

6a 1  a  1  c  1  a 

rulel  =  <rule-body>; 

6a  la  1c2 

6a  1  a  1  c2a 

rulen  =  <rule-body>; 

6a 1  a  1  c  3 

6a 1  a  1 c  3a 

t% 

6a 1  a  1 c  3b 

% 

COMMANDS  {  SUBSYSTEM  SubSysName  KEYWORD 

n 

SUBSYSNAME" 

6a  1  a  1  d 

INITIALIZATION  {  for  SubSysName  { 

6a  1  a  1  d  1 
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initsubsys  =  xinitsubsys(  )  ; 

TERMINATION  J  for  SubSysName  % 
trmsubsys  =  xtrmsubsys ( )  ; 

command  1  COMMAND  =  "COMMANDWOhDI" 
<rule-body> 

xroutine 1 ( variable  1 ,  variable2); 

command2  COMMAND  s  " COMMA NDWORL2" 
<rule-body> 

xrout ine2 ( variable  1 ,  variable^); 

INCLUDE  <SsSrc,  NLS-Grammar,  commands 
! universal > 

END. 

FINISH 


6a  la  1  d  1  a 
6a 1  a  1  d2 

6a 1  a  1 d2a 
6a 1  a  1 d  3 
6a  la  Id  3a 

6a1a 1 d  3  b 
6a1a1dH 
6a  la Id^a 

6a  la  IdUb 

6a  la  1d5 
6a  la  1 d 6 
6a  1  a  1  e 


( program ) 

6a  1  b 

*GR* 

FILE  SubSysName  t  GRammar  % 

6a  1  b  1 

% 

COMPILE-INSTRUCTIONS  % 

6a  1  b  1  a 

INCLUDE  <SsSrc,  NLS-Grammar,  flags  ! subsystems) 

6a  1  b  1  a  1 

l 

DECLARATIONS  % 

INCLUDE  <SsSrc,  NLS-Grammar,  declarations 

6a  1  b  1  b 

! uni ver sal > 

6a  1  b 1 b  1 

DECLARE  COMMAND  WORD 

^subsystem  command  hords  (should  be  100  to 

6a 1 b 1 b2 

127)% 

6a 1 b 1 b2a 

" COMMAND  1 "  =  100, 

6a 1 b 1 b2b 

"CGMMANDn"  =  1  On- 1 ; 

6a 1 b 1 b2c 

n 

6a 1 b 1 b2d 

DECLARE  FEFUNCT ION 

6a 1 b 1 bS 

fef unc 1 , 

6a 1 b 1 b3a 

f ef uncn ; 

6a1b1b3b 

DECLARE  FUNCTION 

6a1b1bU 

PROCESS  =  " PR0CES6X"  ,  PACKAGE  =  "PCKX"  : 

6a 1 b 1 b4a 

xroutine  1 , 

6a 1 b 1 b^a  1 

xroutinen ; 

6a  1  b  1  b*4a2 

DECLARE  GLOBAL 

6a1b1b5 

globall,  %  short  description  of  globall 

% 

6a 1 b 1 b5a 

globaln;  %  short  description  of  globaln 

* 

6a 1 b 1 b5b 

DECLARE  VARIABLE 

6a 1 b 1 b6 

variable  1 , 

6a 1 b 1 b6a 

var iablen ; 

6a 1b1b6b 

%% 

6a 1 b 1 b6c 

% 

COMMON-RULES  % 

6a  1  b  1  c 
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INCLUDE  <SsSrc,  NLS-Grammar,  rules  !universal>  6a1b1c1 

6a 1 b 1 c 1  a 

rulel  =  <rule-body>;  6a1b1c2 

6a 1 b 1 c2a 

rulen=<rule-body>;  6a1b1c3 

6a 1 b 1 c  3a 

%%  6a1b1c36 


%  COMMANDS  %  SUBSYSTEM  SubSysName  KEYWORD 
"SUBSYSNAME" 

INITIALIZATION  $  for  SubSysName  % 
initsubsys  =  xini tsubsys ( ) ; 

TERMINATION  %  for  SubSysName  % 
trmsubsys  =  xtrmsubsys ( ) ; 

command  1  COMMAND  =  "C0MMANDW0RD1 " 
<rule-body> 

xroutine  1  (variable  1 ,  variable2); 

command2  COMMAND  =  " COMMA NDWOR D2" 
<rule-body> 

xroutine2(variable 1 ,  variable2); 

INCLUDE  <SsSrc,  NLS-Grammar,  commands 
! uni versa! > 

END. 

FINISH 


6a  Ibid 
6a  1  b  1  d 1 

6a 1 b  1  d  1  a 
6a1b1d2 

6a 1 b 1 d2a 
6a 1 b 1 d3 
6a 1 b 1 d  3a 

6a1b1d3b 

6a1b1d4 

6a1b1dHa 

6a1b1dHb 

6a1b1d5 
6a1b1d6 
6a  1  b  1  e 


(110) 


(backend ) 
*BE% 


i%  FILE  SubSysName  J  BackEnd  % 

%  DECLARATIONS  % 

%  Dispatch-Table:  address  of  routine-name- 
string,  address  of  routine  % 

(subsysname)  EXTERNAL  =  ( 

$"XR0UT1NE1",  txroutine 1 , 

XROUTlNEn" ,  $xroutinen, 

0,0);  %  table  must  end  with  zero  % 

** 

%  Command  Words  % 

(cwl)  CONSTANT  =  100B; 

( cwn )  CONSTANT  =  lOn-IE; 

%% 

%  X-ROUT1NES  % 

(xroutinel)  %  one-line  description  K 
(xroutinen)  %  one-line  description  % 

%  CORE-ROUTINES  $ 

(croutinel)  %  one-line  description  J 


6a2a 
6a2a  1 
6a2a  1  a 

6a2a  la  1 
6a2a 1  a  1  a 
6a2a 1  a  1  a  1 
6a2a la  1a2 
6a2a  1  a  1  a  3 
6a2a 1  a 1a4 
6a2a  1  a2 
6a2a  1a2a 
6a2a 1 a2b 
6a2a 1 a2c 
6a2a  1  b 
6a2a 1 b 1 
6a2a1b2 
6a2a  1  c 
6a2a  1  c  1 
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(croutinen)  %  cne-line  description  % 

6  a  2  a  1  c  2 

%  SUPPOhT-ROU TINES  % 

L  ;a  1  d 

(sroutinel)  %  one-line  description  % 

6a2a 1 d 1 

(sroutinel)  %  one-line  description  % 

6a2a  1d2 

FINISh 

6  a  2a  1  e 

( case ) 

6a2  b 

CASE  case-exp  OF 

6a2b  1 

cond-expl  : 

6a2b  1  a 

BEGIN 

6a2b 1  a  1 

END  ; 

6a2b 1 a2 

E  N  DC  ASE ; 

6a2b  1  b 

( catchphrase ) 

6a2c 

(catcnname)  C AT CKPHR ASE ( arg  1  ,  arg2  ,  arg3i  arg4); 

6a2c  1 

BEGIN 

6a2c la 

CASE  S1GNALTIPE  OF 

6a2c 1 b 

=  note  type  : 

6a  2c 1 b 1 

=  helptype  : 

6a2c1b2 

=  aborttype  : 

6  a  2  c  1  b  3 

CASE  SIGNAL  OF 

6a2c  1  b3a 

=  xxx  : 

6a2c 1 b3a  1 

=  yyy  : 

6a2c 1 b3a2 

ENDCASE; 

6a2c  1  b  3a  3 

ENDC ASE ; 

6a2c 1 b4 

CONTINUE ; 

6a2c  1  c 

END; 

6a2c  1  d 

(content -analyzer) 

6a2d 

(analyzer-name)  %  CL:  ;  one-line-description  ? 

PROCEDURE  (argl  <type>,  argn  %  =>  [meta-res] 

res  1 

<type>  ,  .  .  .  ,  resn  % ) ; 

6  a  a  d  1 

J  Procedure  description 

6a2d 1  a 

FUNCTION 

6a2d 1  a  1 

none 

6a2d  1  a  1  a 

ARGUMENTS 

6a2d 1a2 

none 

6a2d  1  a2a 

RESULTS 

6  a  2d  1  a  3 

none 

6a2d 1a3a 

NON-STANDARD  CONTROL 

6a2dla4 

none 

6a2d 1 a4a 

% 

6a2d  1a5 

%  Declarations  % 

6a2d 1 b 

^procedure  body? 

6a2d 1c 

%  Return  $ 

6a2d 1 d 

RETURN ; 

6a2d  1  d 1 

END. 

6a2d 1 e 

%% 

6  a  2d  1 e  1 

On-Line  Programmers  Management  System: 
Final  Technical  Report 


_  '  jT-  ' 

1 

- ^ 

K 

BLP  HGL  1 -May-7 9  16: 

01  47238 

1 

Appendix  2:  PROGRAMS  Subsystem  Templates 

( coroutine ) 

6a  2e 

(coname)  ?  CL:  ;  one-line-description  ? 

COROUTINE  (argl  <type> . argn); 

6a2e  1 

1 

?  Coroutine  description 

6a2e  1  a 

FUNCTION 

6a2e 1  a  1 

none 

6a2e  la  la 

f 

ARGUMENTS 

6a2e  1a2 

none 

6a2e  1a2a 

RESULT 

6a2e  1  a  3 

■ 

none 

6a2e 1a3a 

NON-STANDARD  CONTROL 

6a2e 1 a4 

none 

6a2e  1a4a 

% 

6a2e 1 a5 

?  Declarations  ? 

6a2e  1b 

?  Initial  entry  point  ? 

6a2e  1  c 

PORT  ENTRY 

6a2e  1  c  1 

1 

%  Initialization  ? 

6a2e  Ida 

EXIT  PC ALL  ; 

6a2e  1  c2 

^coroutine  body? 

6a2e  Id 

END . 

6a2e  1  e 

?? 

6a2e  1e  1 

i 

$ 

(cml-program) 

6a2f 

* 

%GH%  FILE  SubSysName  %  GRammar  % 

6a2f  1 

%  COMPILE-INSTRUCTIONS  ? 

6a2f  1  a 

INCLUDE  <SsSrc,  NLS-Grammar,  flags  !subsystems> 

6a2f 1  a  1 

?  DECLARATIONS  ? 

6a2f  1b 

INCLUDE  <SsSrc,  NLS-Grammar,  declarations 

s 

! universal > 

6a2f 1 b 1 

DECLARE  COMMAND  WORD 

6a2f  1  b2 

^subsystem  command  words  (should  be  100  to 

127)? 

6a2f  1  b2a 

1 

" COMMAND  1 "  =  100, 

6a2f  1  b2b 

"COMMANDn"  =  1  On  -  1  ; 

6a2f  1b2c 

?? 

6a2f 1 b2d 

; 

DECLARE  FEFUNCT10N 

6a2f  1  b  3 

1 

f ef unc 1 , 

6a2f  1  b3a 

fef uncn ; 

6a2f 1b3b 

! 

DECLARE  FUNCTION 

6a2f  1  b4 

E 

PROCESS  =  "PROCESSX"  ,  PACKAGE  s  "PCKX"  : 

6a2f  1  b4a 

■ 

xroutine 1 , 

6a2f  1b4a  1 

1 

1 1 

xrout inen ; 

6a2f  1  b4a2 

: 

DECLARE  GLOBAL 

6a2f 1 b5 

globall,  ?  short  description  of  globall 

% 

6a2f  1  bf>a 

globaln;  ?  short  description  of  globaln 

? 

[| 

6a2f  1  b5b 

1 

DECLARE  VARIABLE 

6a2f 1 b6 

1 
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variable  1 , 
variablen ; 

%% 

%  COMMON-RULES  % 

INCLUDE  <SsSrc,  NLS-Grammar, 

rulel  =  <rule-body>; 


6a2f  1  b6a 
6a2f  1  b6b 
6a2f  1  b6c 
6a2f  1c 

rules  (universal)  6a2f1c1 
6a2  f  1  c  1  a 
6a2f  1c2 
6a2f  1  o2a 


rulen  =  <rule-body>; 

%% 

t  COMMANDS  %  SUBSYSTEM  SubSysName  KEYWORD 
"SUBSYSNAME" 

INITIALIZATION  %  for  SubSysName  % 
initsubsys  =  xinitsubsys ( )  ; 

TERMINATION  J  for  SubSysName  % 
trmsubsys  =  xtrmsubsy s ( )  ; 

command  1  COMMAND  =  " CCMKANDWCRD 1 " 
<rule-body> 

xroutine 1 ( variable  1 ,  variable^); 

command 2  COMMAND  =  "COMMAND WChD2" 
<rule-body> 

xroutine2( variable  1  ,  variable2); 


6a2f  1  c  5 
6a2f 1 c  5a 
6a2f  1  c  5b 

6a2f  Id 
6a2f  Id  1 

6a2f  1  d  1  a 
6a2f  1d2 

6a2f 1 d2a 
6a2f  1  d5 
6a2f 1 d  5a 

6a2f 1d5b 
6a2f  IdU 
6a2f  IdUa 

6a2f  IdUb 


INCLUDE  <SsSrc,  NLS-Grammar,  commands 
(universal > 

END. 

FINISH 


6a2f  1  d5 
6a2f  1  d  6 
6a2f  1e 


(do-until)  6a2g 

DC  6a2g  1 

BEGIN  6a2g 1  a 

END  6a2g  1  b 

UNTIL  until-clause  ;  6a2g2 

(do-while)  6a2h 

DO  6a2h1 

BEGIN  6a2h  la 

END  6a2h1b 

WHILE  while-clause;  6a2h2 

(fefunction)  6a2i 

( FEFunctionName )  t  CL:  ;  one-line  description  % 

PROCEDURE  (reason,  instruction,  accumulator  REF, 
argcount ,  arguments  REF,  saveword  %  =>  result  %);  6aZi1 

%  FEFunction  description  6a2i1a 
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FUNCTION 

none 

ARGUMENTS  (show  grammar  arguments) 
none 

RESULT  (show  grammar  results) 
none 

NON-STANDARD  CONTROL 
none 

* 

%  Declarations  % 

CASE  reason  OF 

=  parsing:  %  being  invoked  for  first 

command  % 

BEGIN 


6a2i la  1 
6a2i  la  la 
6a2i 1 a2 
6a2i 1a2a 
6a2i  laj 
6a2i 1  a  3a 
6a2i  1a4 
6a2i  1a**a 
6a2i 1a5 
6a2i  1b 
6a2i  1c 

time  during 

6a2i  Id 
6a2i  1c  1  a 


%  decide  whether  FF  is  on  the  correct  path 
through  the  grammar  % 

IF  t  not  on  right  path,  may  %  THEN  RETURN 

( notme )  ; 

$  do  processing  i 

saveword  _  %  word  of  context  to  be  saved  or 
-  if  0,  will  not  be  called  during  backup, 
etc .  i; 

cmlresults  (N,  resultl,  ...  results);  %  re¬ 
turn  N  results  -  need  not  be  called  if  not 
returning  any  results.  Results  returned  wi 
be  freed  by  the  FE  automatically^ 

RETURN  (dosuc,  saveword); 

END; 

=  terminate:  %  command  is  done,  cleanup  % 

-  abortcmd:  %  command  was  aborted,  cleanup  and 
restore  state  % 

=  backup:  %  command  was  backed  up  J 
ENDCASE  ABORT  (???,  $"Bug:  Illegal  reason  to  a 


FEFunction" ) ; 
RET  URN  ( notme ) ; 
END. 


6a2i  1  c  1  b 

6a2i  1c  1c 
6a2i  1  c  1  d 
0 

6a2i  1  c  1  e 


11 

6a2i  1c  1  f 
6a2i  1c  1g 
6a2i1c1h 
6a2i  1c2 


6a2i  1c3 
6a2i  IcK 

6a2i  1  c5 
6a2i  Id 
6a2i1e 
6a2i  lei 


(for)  6a2j 

FOR  for-clause  DO  6a2J1 

BEGIN  6a2 J  1  a 

END;  6a2 J 1 b 

(grammar)  6a2k 

%Gh%  FILE  SubSysName  t  GRammar  %  6a2k1 

%  COMPILE-INSTRUCTIONS  %  6a2k1a 

INCLUDE  <SsSrc,  NLS-Grammar,  flags  tsubsystems> 

6a2k la  1 

%  DECLARATIONS  >  6a2k1b 
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INCLUDE  <SsSrc,  NLS-Grammar,  declarations 
! universal > 

DECLARE  COMMAND  WORD 

/(subsystem  command  words  (should  be  100  to 
1  27  )  16 

"COMMAND  1 "  =  100, 

" COMMANDn"  =  1  On- 1 ; 

n 

DECLARE  FUNCTION  PROCESS  =  "PROCESSX"  ,  PACRA 
=  "  P  C  K  X  "  : 
xroutine 1 , 
xrout inen ; 

DECLARE  FEFUNCTION 
f ef unc 1 , 
f e  f uncn ; 

DECLARE  PARSEFUNCTION 
pf f unc  1  , 
pf f uncn ; 

DECLAhE  GLOBAL 
global  1 , 
globaln ; 

DECLARE  VARIABLE 
variable  1 , 
variablen ; 


6a2k  1  b 1 
6  a  2  k  1  b  2 


6a2k1b2a 
6a2k1b2b 
6a  2  k  1b2c 
6a2k  1  b2d 
PACKAGE 

6a2x 1 b  3 
6a2k 1 b5a 
6a  2k 1 b  3b 
6a2k1b4 
6  a  2  k  1  b  4  a 
6a2k  1  b4b 
6a2k 1 b5 
6a2k1b5a 
6a2k 1 b5b 
6a2k 1 b6 
6a2k  1  b6a 
6a2k 1 b6b 
6a2k  1  b7 
6a2k  1  b7a 
6  a  2  k  1  b  7  b 
6a2k1b7c 


%  COMMON-RULES  $  6a2k1c 

INCLUDE  <SsSrc,  NLS-Grammar,  rules  !universal>  6a2k1c1 

6a2k  1c 1  a 

rulel  =  <rule-body>;  6a2k1c2 

6a2k  1  c2a 

rulen  =  <rule-body>;  6a2k1c3 

6a2k  1c3a 

%X  6a2k1c3b 

I0MMANDS  %  SUBSYSTEM  SubSysName  KEYWORD 

IBSYSNAME"  6a2k1d 

1N1T 1AL12AT ION  %  for  SubSysName  t  6a2k1d1 

initsubsys  =  xinitsubsys ( ) ; 

6a2k Id  1  a 

TERMINATION  t  for  SubSysName  J  6a2k1d2 

trmsubsys  =  xtrmsubsys( ) ; 

6a2k  1d2a 

command  1  COMMAND  s  "COMMANDWORD1"  6a2k1d3 

<rule-body>  6a2k1d3a 

xroutine  1  (variable  1 ,  variable2); 

6a2k1d3b 

command 2  COMMAND  =  " COMMA NDWORD2"  6a2k1d4 

<rule-body>  6a2k1d4a 

xroutine2 ( variable  1 ,  variable2); 

6a2k  1d4b 


rule  1 


rulen  =  <rule-body>; 


%  COMMANDS  l  SUBSYSTEM  SubSysName  KEYWORD 
"SUBSYSNAME" 

INITIALIZATION  %  for  SubSysName  t 
initsubsys  =  xinitsubsys () ; 

TERMINATION  t  for  SubSysName  t 
trmsubsys  =  xtrmsubsys( ) ; 

command  1  COMMAND  =  "COMMANDWORD1" 
<rule-body> 

xroutine  1  (variable  1 ,  variable2); 

command  2  COMMAND  =  " COMMA NDW0RD2" 
<rule-body> 

xroutine2 ( variable  1 ,  variable2); 
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INCLUDE  <SsSrc,  NLS-Grammar ,  commands 
! universal > 

END. 

FINISh 


6a2k 1d5 
6a2k  1d6 
6a2k  1e 


( if-then-else )  6a21 

IF  if-clause  THEN  6a211 

BEGIN  6a21 1  a 

END  6a21 1  b 

ELSE  6a212 

BEGIN  6a212a 

END;  6a212b 


(Jovial-program) 

! COMPOOL !  ( • compool-f lie ' )  name,  name; 

PROGRAM  programname  "  Description  " 

BEGIN 

"  Program  description  " 

"  DECLAR A1 IONS  " 

"  FUNCTIONS  DEFINED  " 

"  one-line-description  " 

DEF  PROC  procname  ( input-parameter  1  ,  . 
input-parametern  :  output  parameterl, 
out put-parametern )  functiontype  ; 

"  Procedure  description 
FUNCTION 
none 

ARGUMENTS 

none 

RESULTS 

none 

NON-STANDARD  CONTROL 
none 

n 

BEGIN 

"  Declarations  " 

"function  body" 

"  Return  " 

RETURN ; 

END 

"  SUBROUTINES  DEFINED  " 

"  one-line-description  " 

REF  PROC  (procname)  ( input-parameter  1 , 
input-parametern  :  output  parameterl, 
output-parametern )  ; 

"  Procedure  description 
FUNCTION 
none 

ARGUMENTS 


6a2m 
6a2m1 
6a2m2 
6a  2m2a 
6a2m2b 
6a2m2c 
6a2m2c  1 


•  *  9 

6a2m2c  1  a 
6a2m2c 1  a  1 
6a2m2c 1  a  la 
6a2m2c lalal 
6a2m2c  la  1b 
6a2m2c 1  a  1 b 1 
6a2m2c laic 
6a2m2c  laid 
6a2m2c laid 
6a2m2c 1  a  1  d  1 
6a2m2c  1  a  1  e 
6a2m2c 1 a2 
6a2m2c  1  a  3 
6a2m2c 1  a  A 
6a2m2c 1 a5 
6a2m2c 1 a5a 
6a2m2c 1 a6 
6a2m2c2 


•  •  » 

•  • » 

6a2m2c2a 
6a2m2c2a 1 
6a2m2c2a  1  a 
6a2m2c2a 1  a  1 
6a2m2c2a  1b 
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RESULTS 

none 

NON-STANDARD  CONTROL 


BEGIN 

"  Declarations  " 
"procedure  body" 

"  Return  " 

RETURN  ; 

END 

"  ITEMS  DEFINED  " 

ITEM  itemname  itemtype; 
"program  body" 

END 

i% 

( 1 10-program ) 

FILE  ProgramName  %  Description  % 
%  DECLARATIONS  % 

%% 

%  PROCEDURE  % 

(procname)  %  CL:  ;  one-: 


6a2m2c2a  1  b  1 
6a2m2c2a 1 c 
6a2m2c2a 1c 1 
6a2m2c2a Id 
6a2m2c2a 1 d 1 
6a2m2c2a 1e 
6a2m2c2a2 
6a2m2c2a  3 
6a2m2c2a4 
6a2m2c2a5 
6a2m2c2a5a 
6a2m2c  2a6 
6a2m2c  3 
6a2m2c  3a 
6a2m2 d 
6a2m2e 
6a2m2e  1 
6a2n 
6a2n  1 
6a2n  1  a 
6a2n  1  b 
6a2n 1 c 


(procname)  %  CL:  ;  one-line-description  % 
PROCEDURE  (argl  <type>,  argn  %  =>  (meta- 

res]  resl  <type>,  ....  resn  $); 

%  Procedure  description 
FUNCTION 


none 

ARGUMENTS 

none 

RESULTS 

none 

NON-STANDARD  CONTROL 


%  Declarations  % 
Jprocedure  bodyt 
%  Return  % 

RETURN ; 

END. 


FINISH 

(1101 1 -program ) 

FILE  ProgramName  % 
t  DECLARATIONS  % 

ti 

%  PROCEDURE  * 


%  Description  $ 


6a2n 1 c  1 
6a2n 1 c 1  a 
6a2n 1c 1  a  1 
6a2n 1c  la  la 
6a2n 1c 1 a2 
6a2n 1 c 1 a2a 
6a2n 1 c 1 a3 
6a2n 1c 1a3a 
6a2n 1c 1a4 
6a2n 1 c 1  a  4a 
6a2n 1 c  1  a  5 
6a2n 1 c 1 b 
6a2n 1c 1c 
6a2n  1c  1  d 
6a2n 1 c 1 d  1 
6a2n  1c  1e 
6a2n 1 c 1 e  1 
6a2n  1  d 
6a2c 
6a2o  1 
6a2o  1  a 
6a2o  1  b 
6a2o 1 c 
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(procname)  t  CL:  ;  one-line-description  K 
PROCEDURE  (argl  <type>,  ....  argn  f  =>  [meta- 
res]  resl  <type>,  ...,  resn  >);  6a2o1c1 

1  Procedure  description  6a2o1c1a 

FUNCTION  6a2o1c1al 

none  6a2o1c1a1a 

ARGUMENTS  6a2o1c1a2 

none  6a2o1c1a2a 

RESULTS  6a2o 1 c 1  a  3 

none  6a2o1c1a3a 


-STANDARD  CONTROL 


6a2o 1 c  1  a4 
6a2o1c 1a4a 


\  6a2o1c1a5 

%  Declarations  %  6a2o1c1b 

^procedure  body%  6a2o1c1c 

%  Return  %  6a2o1c1d 

RETURN;  6a2o1c1d1 

END.  6a2o1c1e 

%%  6a2o1c1e1 

FINISH  6a2o 1 d 

(loop)  6a2p 

LOOP  6a2p1 

BEGIN  6a2p1a 

END;  6a2p1b 

(meta-program)  6a2q 

FILE  filename  ChECK  6a2q1 


META  program  6a2q2 

)  Compiler  header.  %  6a2q3 

ERROR:  ;  6a2q4 

SIZE :  ;  6a2q5 

FLAGS:  ;  6a2q6 

DUMMY:  ;  6a2q7 

SET:  ;  6a2q8 

FIELDS:  ;  6a2q9 

ATTRIBUTES:  ;  6a2q10 

OPCODES:  ;  6a2q11 

%  Compiler  header  syntax.  %  6a2q12 

t  Rules.  %  6a2q13 

END  of  TREE  META  6a2ql4 

(code)  6a2r 

t?FC1>  COROUTINE  (parml,  parm2,  parm3);  6a2r1 

END.  6a2r1a 

(data)  6*2» 

JPFD$  FILE  SubSysName  %  Parse/Fe  functions  Data  %  6a2s1 

FINISH  6a2s  la 

(function)  6a2t 

( ParseFunctionName)  %  CL:  ;  one-line-description  % 
COROUTINE  (reason,  instruction,  accumulator  REF, 
argcount,  arguments  REF,  saveword  %  =>  result  t)\  6a2t1 
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* 

Parsef unction  description 

6a2t  la 

FUNCTION 

6a2t 1  a  1 

none 

6a2t  1  a  1  a 

ARGUMENTS  (show  grammar  arguments) 

6a2t 1 a2 

none 

6a2t  1a2a 

RESULT  (show  grammar  results) 

6a2t 1a3 

none 

6a2t 1  a  3a 

NCN-STANDARD  CONTROL 

6a2t 1  a ^ 

none 

6a2t  la^a 

» 

6a2t 1 a5 

t 

Declarations  % 

6a2t  1b 

1 

Initial  entry  point  t 

6a2t 1 c 

PORT  ENTRY 

6a2t  1c 1 

%  initialization  { 

6a2t 1 c 1  a 

EXIT  PC ALL ; 

6a2t  1c2 

^coroutine  body% 

6a2t  Id 

END. 

6a2t  1  e 

it 

6a2t  1  e  1 

( par se  f unc  tion  ) 

6a2u 

( ParseFunctionhame)  %  CL:  ;  one-line-description 

% 

COROUTINE  (reason,  instruction,  accumulator  hEF, 

argcount,  arguments  REF,  saveword  f  =>  result  % ) ; 

6a2u  1 

t 

Parsefunction  description 

6a2u 1  a 

FUNCTION 

6a2u 1  a  1 

none 

6a2u  1  a  1  a 

ARGUMENTS  (show  grammar  arguments) 

6a2u 1 a2 

none 

6a2u  1  a2a 

RESULT  (show  grammar  results) 

6a2u 1  a  5 

none 

6a2u  1  a  3a 

NON-STANDARD  CONTROL 

6a2u  1  a1* 

none 

6a2u  1  a  ^  a 

% 

6a2u 1 a5 

t 

Declarations  % 

6a2u  1  b 

% 

Initial  entry  point  t 

6a2u  1  c 

PORT  ENTRY 

6a2u  1  c  1 

%  Initialization  % 

6a2u  1  c  1  a 

EXIT  PC ALL ; 

6a2u  1  c2 

^coroutine  bodyj 

6a2u  1  d 

END. 

6a2u  1  e 

it 

6a2u  1e  1 

( procedure ) 

6a2v 

(procname)  J  CL:  ;  one-line-description  { 

PROCEDURE  (argl  <type>,  ...,  argn  *  =>  [meta-res]  resl 

<type> ,  . . . ,  resn  t ) ; 

6a2v  1 

% 

Procedure  description 

6a2v  la 

FUNCTION 

6a2 v  1  a  1 

none 

6a2v la  la 

ARGUMENTS 

6a2v 1 a2 

none 

6a2v 1a2a 
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RESULTS 

6a2v1a3 

none 

6a2v 1a3a 

NON-STANDARD  CONTROL 

6a2v 1 a4 

none 

6a2v 1 a4a 

% 

6a2v 1 a5 

%  Declarations  % 

6a2v 1 b 

^procedure  body* 

6a2v 1c 

%  Return  % 

6a2v 1 d 

RETURN; 

6a2v  1  d  1 

END. 

6a2v 1e 

** 

6a2v 1 e 1 

( program) 

6a2w 

%GR%  FILE  SubSysName  %  GRammar  % 

6a2w  1 

%  COMPILE-INSTRUCTIONS  % 

6a2w  la 

INCLUDE  <SsSrc,  NLS-Grammar,  flags  !subsystems> 

6a2w1a 1 

%  DECLARATIONS  * 

INCLUDE  <SsSrc,  NLS-Grammar,  declarations 

6a2w  1  b 

! universal> 

6a2w 1 b 1 

DECLARE  COMMAND  WORD 

6a2w1b2 

^subsystem  command  words  (should  be  100  to 

127)% 

6a2w 1 b2a 

" COMMAND  1 "  =  100, 

6a2w 1 b2b 

"COMMANDn"  r  1  On- 1 ; 

6a2w 1 b2c 

t% 

6a2w 1 b2d 

DECLARE  FEFUNCTION 

6a2w1b3 

fef unc 1 , 

6a2w  1  b3a 

f efuncn ; 

6a2w  1b3b 

DECLARE  FUNCTION 

6a2w  1  b  4 

PROCESS  =  "PROCESSX"  ,  PACKAGE  =  "PCKX"  : 

6a2w 1b4a 

xroutine 1 , 

6a2w 1 b4a  1 

xroutinen ; 

6a2w 1 b4a2 

DECLARE  GLOBAL 

6a2w 1 b5 

globall,  %  short  description  of  globall 

t 

6a2w 1 b5a 

globaln;  %  short  description  of  globaln 

t 

6a2w1b5b 

DECLARE  VARIABLE 

6a2w  1  b  6 

variable  1 , 

6a2w  1b6a 

variablen ; 

6a2w 1 b6b 

U 

6a2w  1  b6c 

%  COMMON-RULES  % 

6a2w  1c 

INCLUDE  <SsSrcf  NLS-Grammar,  rules  !universal>  6a2w1c1 

6a2w1c  la 


rulel  s  <rule-body>;  6a2w1c2 

6a2w  1c2a 

rulen  s  <rule-body>;  6a2w1e3 

6a2w1c3a 
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** 

%  COMMANDS  >  SUBSYSTEM  SubSysKame  KEYWORD 
"SUBSYSNAME" 

INITIALIZATION  %  for  SubSysKame  % 
initsubsys  =  xinitsubsys ( )  ; 

TERMINATION  \  for  SubSysKame  % 
trmsubsys  =  xtrmsubsys (  )  ; 

command  1  COMMAND  =  "CGMMANDWORD1 " 
<rule-body> 

xroutine  1  (variable  1 ,  variable2); 

command2  COMMAND  =  "CGMMANDW0RD2" 
<rule-body> 

xroutine2 ( variable  1 ,  variables); 

INCLUDE  <SsSrc,  NLS-Grammar,  commands 
I  uni ver sal > 

END. 

FINISH 


6a2w 1 c3b 

6a2w  Id 
6a2w  1  d  1 

6a2w  1  d  1  a 
6  a  2 w  1  d  2 

6a2w 1d2a 
6a2v«  1  d  3 
6a2w  1d3a 

6a2w 1 d  3b 
6a2w1d4 
6a2w 1 d4a 

6a2vi  1d4b 

6a2w  1d5 
6a2w  1  d6 
6a2w  1  e 


> PFC J  FILE  SubSysNaoe 
%  DECLARATIONS  t 
l  CODE  t 

(FEFunctionName) 

% 


%  Parse/Fe  functions  Code  %  6a2w2 

6a2w2a 

6a2w2b 

t  CL:  ;  one-line  description 


PROCEDURE  (reason,  instruction, 
argcount,  arguments  REF,  savewo 
*); 

%  FEFunction  description 
FUNCTION 
none 

ARGUMENTS 


accumulator  REF, 
rd  %  =>  result 

6a2w2b  1 
6a2w2b  1  a 
6a2w2b 1  a  1 
6a2w2b  1  a  1  a 
6a2w2b  1  a2 


reason  -  reason  fefunction  is  being 
invoked  6a2w2b1a2a 

instruction  -  byte  pointer  to  grammar 
instruction  6a2w2b1a2b 

accumulator  -  pointer  to  global 
accumulator  6a2w2b1a2c 

argcount  -  count  of  number  of  arguments 
from  grammar  call  6a2w2b1a2d 

arguments  -  pointer  to  array  of  argu¬ 
ment  values  from  grammar  call  6a2w2b1a2e 

saveword  -  word  of  context  retained  by 
Frontend  6a2w2b1a2f 

RESULT  6a2w2b1a3 

reason  describing  fefunction  result 

6a2w2b 1  a  3a 


On-Line  Programmers  Management  System: 
Final  Technical  Report 


BLP  HGL  1 -May-7 9  16:01  47238 

Appendix  2:  PROGRAMS  Subsystem  Templates 


NON-STANDARD  CONTROL  6a2w2b1a4 

none  6a2w2b1a4a 

%  6a2w2b1a5 

%  Declarations  %  6a2w2b1b 

CASE  reason  OF  6a2w2b1c 

=  parsing:  t  being  invoked  for  first  time 


during  command  % 
EEGIN 


6a2w2b 1 c 1 
6a2w2b1c1a 


t  decide  whether  FF  is  on  the  correct 


path  through  the  grammar  % 


6a2w2b 1 c 1 b 


IF  %  not  on  right  path  *  THEN  RETURN 
(notme);  6a2w2b1c1c 

%  do  processing  f  6a2w2b1c1d 

saveword  _  %  word  of  context  to  be 
saved  or  0  -  if  0,  will  not  be  called 
during  backup,  etc.  £;  6a2w2b1c1e 

cmlresults  (N,  resultl,  ...  resultN);  % 
return  N  results  -  need  not  be  called 
if  not  returning  any  results.  Results 
returned  will  be  freed  by  the  FE  auto¬ 
matically?  6a2w2b1c1f 

RETURN  (dosuc,  saveword);  6a2w2b1c1g 

END;  6a2w2b 1 c 1 h 

=  terminate:  t  command  is  done,  cleanup  t 

6a2w2b 1 c2 

=  abortcmd :  %  command  was  aborted,  cleanup 
and  restore  state  t  6a2w2b1c3 

s  backup:  t  command  was  backed  up  %  6a2w2b1c4 

ENDCASE  ABORT  (???,  $"Bug:  Illegal  reason 
to  a  FEFunction" ) ;  6a2w2b1c5 

RETURN;  6a2w2b 1 d 

END.  6a2w2b 1 e 

%%  6a2w2b 1 e 1 

( ParseFunctionName)  %  CL:  ;  one-line- 
description  % 

COROUTINE  (reason,  instruction,  accumulator  REF, 
argcount,  arguments  REF,  saveword  %  =>  result 


6a2w2b2 

}  Parsefunction  description  6a2w2b2a 

FUNCTION  6a2w2b2a 1 

none  6a2w2b2a1a 

ARGUMENTS  6a2w2b2a2 

reason  -  reason  parsefunction  is  being 
invoked  6a2w2b2a2a 

instruction  -  byte  pointer  to  grammar 
instruction  6a2w2b2a2b 

accumulator  -  pointer  to  global 
accumulator  6a2w2b2a2c 
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argcount  -  count  of  number  of  arguments 
from  grammar  call  6a2w2b2a2d 

arguments  -  pointer  to  array  of  argu¬ 
ment  values  from  grammar  call  6a2w2b2a2e 

saveword  -  word  of  context  retained  by 
Fr on tend  6a2w2b2a2f 

RESULT  6a2w2b2a  5 


reason  describing  parsefunction  result 


NON-STANDARD  CONTROL 

6a2w2b2aja 

6a2w2b2a4 

none 

6a2w2b2a4a 

t 

6a2w2b2a5 

t  Declarations  % 

6a2w2b2b 

%  Initial  entry  point  } 

6a2w2b2c 

PORT  ENTRY 

6a2w2b2c 1 

%  Initialization  % 

6a2w2b2c la 

EXIT  PC ALL  ; 

6a2w2b2c2 

<coroutlne  body> 

6a2w2b2d 

END. 

6a2w2b2e 

%t 

6a2w2b2e 1 

FINISH 

6a2w2c 

JPFDJ  FILE  SubSysName  %  Parse/Fe  functions 

Data 

%  6a2wj 

FINISH 

6a2w  3a 

%BEf  FILE  SubSysName  %  EackEnd  1 

6a2w4 

t  DECLARATIONS  % 

6  a  2  w  4  a 

%  Dispatch-Table:  address  of  routine-name- 

string,  address  of  routine  ? 

6a2w4a 1 

(subsysname)  EXTERNAL  =  ( 

6a2w4a la 

("XROUT1NE  1 "  ,  Jxroutine  1 , 

6a2w4a 1  a  1 

$"XR0U1 lNEn"  ,  {xroutinen, 

6a2w4a  1a2 

0,0);  t  table  must  end  with  zero 

% 

6a2w4a 1  a  3 

It 

6a2 w 4a 1  a  4 

t  Command  Nords  % 

6a2w4a2 

( c w 1 )  CONSTANT  =  1006; 

6a2w4a2a 

( cwn )  CONSTANT  =  lOn-IB; 

6a2w4a2b 

t% 

6a2w4a2c 

t  X-R0U1 INES  % 

6a2w4b 

(xroutinel)  %  one-line  description  % 

6a2w4b 1 

(xroutinen)  %  one-line  description  % 

6a2w4b2 

%  CORE-ROUTINES  J 

6a2w4c 

(croutinel)  %  one-line  description  % 

6a2w  4c  1 

(croutinen)  %  one-line  description  $ 

6a2w4c2 

%  SUPPORT-ROUTINES  % 

6a2w4d 

(sroutinel)  t  one-line  description  % 

6a2w4d 1 

(sroutinel)  %  one-line  description  J 

6a2w4d2 

FINISH 

6a2w4e 
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( run-program ) 

6a  2x 

FILE  ProgramName  %  Description  % 

6a2x  1 

%  DECLARATIONS  % 

6a2x 1  a 

(ProgramName)  %  CL:  ;  one-line-description  $ 

PROCEDURE  (argl  <type>,  ...»  argn  %  =>  [meta-res] 

res  1 

<type> ,  ....  resn  %) ; 

6a2x2 

%  Procedure  description 

6a2x2a 

FUNCTION 

6a2x2a  1 

none 

6a2x2a  1  a 

ARGUMENTS 

6a2x2a2 

none 

6a2x2a2a 

RESULTS 

6a2x2a  3 

none 

6a2x2a3a 

NON-STANDARD  CONTROL 

6a2x2a4 

none 

6a2x2a4a 

% 

6a2x2a5 

%  Declarations  % 

6a2x2b 

^procedure  body% 

6a2x2c 

%  Return  % 

6a2x2d 

RETURN ; 

6a2x2d1 

END. 

6a 2x2e 

FINISH  1% 

6a2x2f 

(sequence- generator) 

6a2y 

( nameof seqgen )  t  CL:  ;  one-line-description  f 

PROCEDURE  (sw  REF,  entrytype); 

6a2y  1 

%  Procedure  description 

6a2y la 

FUNCTION 

6a2y 1  a  1 

This  is  a  user  sequence  generator.  That 

•  • 

s 

6a2y la  la 

ARGUMENTS 

6a2y 1a2 

sw  -  REF-address  of  sequence  work  area. 

See 

record  def,  (nine,  brecords,  seqr). 

6a2y 1 a2a 

entrytype  -  INTEGER-entry  type. 

6a2y 1 a2b 

=sqopn:  called  at  seq  open  to  initialize 

a  work  area 

6a2y 1a2b 1 

=sqgnxt:  called  for  next  in  seq 

6a2y 1 a2b2 

=sqcls:  called  at  seq  close  to  release 

the  workarea 

6a2y  1a2b3 

RESULTS 

6a2y 1a3 

none 

6a2y 1  a  3a 

NCN-STANDARD  CONTROL 

6a2y  1a4 

When  called  with  entry  type  sqgnxt ,  a  pseudo 
coroutine  is  used  for  the  sequence  generator 
return  mechanism.  Control  is  given  up  by 
calling  send  or  sport,  which  eventually 
switches  the  stack.  Control  is  returned  when 
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a  call  is  made  to  seqgen,  which  makes  a 
coroutine  port  call  to  the  stack  associated 
with  this  sequence  work  area.  6c 

A  signal  is  generated  (err  is  called)  when 
the  seq  generator  is  called  with  an  illegal 
entry  type.  6< 

Note:  for  an  example  look  at  system  sequence 


6a2y 1a4a 


6a2y 1a4o 


generator . 

> 

*  Declarations  % 


6a2y 1a4c 
6a2y 1a5 
6a2y 1 b 


$  Caution!!  Locals  are  not  consistent  across  en- 


NULL ; 

=  sqgnxt :  J 
LOOP 

BEGIN 


tries  *  6a2y  1  b 1 

*  select  entry  point  %  6a2y1c 

CASE  entrytype  OF  6a2y1c1 

=sqopn:  *  called  at  seq  open  $  6a2y1c1a 

L  ;  6a2y  1  c 1  a  1 

t:  J  call  for  next  in  seq  %  6a2y1c1b 

p  6a2y 1 c 1 b 1 

BEGIN  6a2y  1  c  1  b  1  a 

*  perf  'rm  activities  unique  to  this  seq 

generator  *  6a2y1c1b1b 

*  make  "coroutine"  call  via  call  to 


*  call  for  next  in  seq  * 


send  or  sport  " 
%  send($sw, 
work  area 

$  s  t  r ) ; 

of  a  string  * 

*  sport ( $sw )  ; 

work  area  * 


6a2y 1 c  1  b  1  c 

-  addr  of  a  sequence 

6a2y  Iclbld 

-  an  ENDF1L  or  addr 

6a2y 1 c 1 b 1 e 

-  addr  of  sequence 

6a2y  1c 1 b  1  f 


=sqcls:  %  called  a 

NULL ; 

ENDCASE  err ( $"Bug"  )  ; 
1  Return  J 
RETURN ; 

END. 

%% 

( sort-key ) 

(SortName)  FILE 
ALLOW! 


%  returned  here  by  sport  call  from 
seqgen  % 

%  get  next  in  sequence  $ 

END  ; 

:  %  called  at  seq  close  % 


6a2y 1 c 1 b 1 g 
6a2y 1 c 1 b 1 h 
6a2y 1 c 1 b 1 i 
6a2y 1c 1c 
6a2y  1  c 1 c  1 
6a2y  1  c  1  d 
6a2y  Id 
6a2y  Id  1 
6a2y  1  e 
6a2y  1e  1 

6a2z 
6a2z  1 
6a2z  1  a 


* Declarations* 


6a2z2 


*.. .Default  key  procedure...* 


6a2z  3 
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(defkey)  ?  CL:  ;  one-line-description  ? 
PROCEDURE  (stid,  %  handle  of  the  statement  begin 


considered  % 

6a2z3a 

buffer,  %  address  of  a  buffer  to 

hold  the 

sorting  index  ? 

6a2z  5a 1 

bufflength);  %  the  maximum  size 

(in  words) 

of 

the  sorting  index  ? 

6a2z  5a2 

?  Procedure  description 

6a2z3a3 

FUNCTION 

6a2z3a3a 

none 

6a2z3a3a 1 

ARGUMENTS 

6a2z  3a  3b 

none 

6a2z  5a  3b 1 

RESULTS 

6a2z3a3c 

none 

6a2z  3a  3c 1 

NON-STANDARD  CONTROL 

6a2z  5a5d 

none 

6a2z3a3d 1 

? 

6a2z3a3e 

J  Declarations  % 

6a2z  3aA 

{procedure  body? 

6a2z  3a5 

%  Return  ? 

6a2z  3a6 

RETURN  (partial-index-flag,  ?  TRUE  -  data  in 
buffer  only  high-order  bits  of  the  sorting 
index  FALSE  -  buffer  value  is  full  sorting 


index  ?  6a2z3a6a 

word-count);  ?  integer  indicating  the  number 
of  words  actually  used  in  the  buffer  ?  6a2z3a6b 

END.  6a2z3a7 

??  6a2z3a7a 

buffer,  bufflength);  6a2z3b 

6a2z3c 


FINISH 


6a2z  U 


(subsystem)  6a2aa 

?GR?  FILE  SubSysName  ?  GRammar  ?  6a2aa1 

?  COMPILE-INSTRUCTIONS  ?  6a2aa1a 

INCLUDE  <SsSrc ,  NLS-Grammar,  flags  !subsystems> 

6a2aa  1  a  1 

%  DECLARATIONS  ?  6a2aa1b 

INCLUDE  <SsSrc,  NLS-Grammar,  declarations 
(universal)  6a2aa1b1 

DECLARE  COMMAND  WORD  6a2aa1b2 


{subsystem  command  words  (should  be  100 
127)? 

"COMMAND  1 "  =  100, 

"COMMANDn"  =  1  On- 1 ; 

?? 

DECLARE  FE FUNCTION 
f e  f unc 1 , 


6a2aa  1  b2a 
6a2aa1b2b 
6a2aa 1 b2c 
6a2aa 1 b2d 
6a2aa 1 b3 
6a2aa 1b3a 
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% 


f ef uncn ; 

DECLARE  FUNCTION 

PROCESS  =  "PRCCESSX"  , 
xroutine  1 , 
xrouti nen  ; 

DECLARE  GLOBAL 


6a2aa 1 b3b 
6a2aa 1 b4 

PACKAGE  =  "PCKX"  :  6a2aa1b4a 

6a2aa 1 b4a  1 
6a2aa 1 b4a2 
6a2aa  1b5 


globall,  %  short  description  of  globall  ' 

6a2aa 1 b5a 


globaln;  % 

DECLARE  VARIABLE 
v  ar iable  1 , 
var iablen  ; 

%% 

COMMON-RULES  % 
INCLUDE  <SsSrc  , 


short  description  of  globaln  % 

6a2aa 1 b5b 
6a2aa 1 b6 
6a2aa 1 b6a 
6a2aa  1  b6b 
6a2aa  1b6c 
6a2aa 1 c 

NLS-Grammar ,  rules  !universal> 


6a2aa 1 c 1 


rulel  =  <rule-body>; 
rulen  =  <rule-body>; 

%% 

%  COMMANDS  %  SUBSYSTEM  SubSysName  KEYWORD 
"SUESYSNAME" 

INITIALIZATION  %  for  SubSysName  % 
initsubsys  =  xinitsubsys ( )  ; 

TERMINATION  %  for  SubSysName  t 
trmsubsys  =  xtrmsubsys ( ) ; 

command  1  COMMAND  s  "C0MMANDW0RD1 " 
<rule-body> 

xroutine 1 (variable  1 ,  variable2); 

command2  COMMAND  =  "C0MMANDW0RD2" 
<rule-body> 

xroutine2(variable  1 ,  variable2); 

INCLUDE  <SsSrc,  NLS-Grammar,  commands 
! univer sal> 

END  . 

FINISH 


6a2aa Icla 
6a2aa  1  c2 
6a2aa  1  c2a 
6a2aa  1  c  3 
6a2aa  1  c  3a 
6a2aa 1 c  3b 

6a2aa  1  d 
6a2aa  Id  1 

6a2aa  1  d  1  a 
6a2aa  1d2 

6a2aa 1 d  2a 
6a2aa 1 d  3 
6a2aa 1 d  3a 

6a2aa 1 d  3b 
6a2aa  1d4 
6a2aa  1d4a 

6a2aa 1d4b 

6a2aa 1 d5 
6a2aa  1  d  6 
6a2aa1e 


HPFC%  FILE  SubSysName 
%  DECLARATIONS  * 
t  CODE  % 

(FEFunctionName) 

$ 


t  Parse/Fe  functions  Code  £  6a2aa 2 

6a2aa2a 

6a2aa2b 

(  CL:  ;  one-line  description 
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PROCEDURE  (reason,  instruction,  accumulator  REF, 
argcount,  arguments  REF,  saveword  %  =>  result 
J);  6a2aa2b 1 

%  FEFunction  description  6a2aa2b1a 

FUNCTION  6a2aa2b 1  a  1 

none  6a2aa2b1a1a 

ARGUMENTS  6a2aa2b1a2 

reason  -  reason  fefunction  is  being 
invoked  6a2aa2b1a2a 

instruction  -  byte  pointer  to  grammar 
instruction  6a2aa2b1a2b 

accumulator  -  pointer  to  global 
accumulator  6a2aa2b1a2c 

argcount  -  count  of  number  of  arguments 
from  grammar  call  6a2aa2b1a2d 

arguments  -  pointer  to  array  of  argu¬ 
ment  values  from  grammar  call  6a2aa2b1a2e 

saveword  -  word  of  context  retained  by 
Frontend  6a2aa2b1a2f 

RESULT  6a2aa2b 1  a  3 

reason  describing  fefunction  result 

6a2aa2b 1a3a 

'  NON-STANDARD  CONTROL  6a2aa2b1a4 

none  6a2aa2b1a4a 

%  6a2aa2b1a5 

%  Declarations  %  6a2aa2b1b 

CASE  reason  OF  6a2aa2b1c 

=  parsing:  %  being  invoked  for  first  time 
during  command  %  6a2aa2b1c1 

BEGIN  6a2aa2b  1  c 1  a 

l  decide  whether  FF  is  on  the  correct 
path  through  the  grammar  l  6a2aa2b1c1b 

IF  %  not  on  right  path  t  THEN  hETURN 
(notme);  6a2aa2b1c1c 

%  do  processing  %  6a2aa2b1c1d 

saveword  _  %  word  of  context  to  be 
saved  or  0  -  if  0,  will  not  be  called 
during  backup,  etc.  % ;  6a2aa2b1c1e 

cmlresults  (N,  resultl,  ...  resultN);  t 
return  N  results  -  need  not  be  called 
if  not  returning  any  results.  Results 
returned  will  be  freed  by  the  FE  auto¬ 
matically)  6a2aa2b1c1f 

RETURN  (dosuc,  saveword);  6a2aa2b1c1g 

END;  6a2aa2b 1 c 1 h 

s  terminate:  %  command  is  done,  cleanup  ) 

6a2aa  2b  1  c  2 

s  abortcmd:  %  command  was  aborted,  cleanup 


s  abortcmd:  )  commar 
and  restore  state  % 


6a2aa2b 1 c  3 
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=  bacKup:  ?  command  was  backed  up  i  6a2aa2b1c4 
ENDCASE  AEORT  (???,  $"Bug:  Illegal  reason 


to  a  FEFunction" ) ; 

RETURN ; 

END . 

%  % 

(ParseFunctionName)  $  CL: 
description  % 

COROUTINE  (reason,  instruction,  accumulator  hEF, 
argcount,  arguments  REF,  saveword  %  =>  result 


6a2aa2b 1 c5 
6a2aa2b1d 
6a2aa2b 1 e 
6a2aa2b1e  1 


one-line- 


*); 


Par se f unc t i on  description 
FUNCTION 
none 

ARGUMENTS 


6a2aa2b2 
6a2aa2b2a 
6a2aa2b2a 1 
6a2aa2b2a la 
6a2aa2b2a2 


reason  -  reason  parsefunction  is  being 
invoked  6a2aa2b2a2a 

instruction  -  byte  pointer  to  grammar 
instruction  6a2aa2b2a2b 

accumulator  -  pointer  to  global 
accumulator  6a2aa2b2a2c 

argcount  -  count  of  number  of  arguments 
from  grammar  call  6a2aa2b2a2d 

arguments  -  pointer  to  array  of  argu¬ 
ment  values  from  grammar  call  6a2aa2b2a2e 

saveword  -  word  of  context  retained  by 
Frontend  6a2aa2b2a2f 

RESULT  6a 2a a 2 b2 a  5 

reason  describing  parsefunction  result 

6a2aa2b2a5a 


NON-STANDARD  CONTROL 
none 

% 

%  Declarations  % 

%  Initial  entry  point  t 
PORT  ENTR1 

i  Initialization  % 
EXIT  PC  ALL ; 

<coroutine  body> 

END. 

n 


FINISH 


6a2aa2b2a4 
6a2aa2b2a4a 
6a2aa2b2a5 
6a2aa2b2b 
6a2aa2b2c 
6a2aa2b2c 1 
6a2aa2b2c1a 
6a2aa2b2c2 
6a2aa2b2d 
6a2aa2b2e 
6a2aa2b2e 1 
6a2aa2c 


JPFDS  FILE  SubSysName 
FINISH 


%  Parse/Fe  functions  Data  % 


6a2aa  5 

6a  2aa 5a 


%BEJ  FILE  SubSysName 
%  DECLARATIONS  % 


%  EackEnd  % 


6  a  2  a  a  U 
6a2aa4a 


On-Line  Programmers  Management  System: 
Final  Technical  Report 
39 


BLP  HGL  1 -Kay-7 9  16:01  47238 

Appendix  2:  PRGGRAMS  Subsystem  Templates 


%  Dispatch-Table:  address  of  routine-name- 
string,  address  of  routine  % 

(subsysname)  EXTERNAL  =  ( 

$ " XROUT INE  1 "  ,  $xroutine  1  , 
$"XROUTINEn"  ,  txroutinen, 

0,0);  %  table  must  end  with  zero  % 

%% 

%  Command  Words  % 

(evil)  CONST  ANT  =  100B; 

( cwn )  CONSTANT  =  lOn-lb; 

t% 

%  X-ROUTINES  % 

(xroutinel)  %  one-line  description  % 

(xroutinen)  J  one-line  description  $ 

%  CORE-ROUTINES  % 

(croutinel)  %  one-line  description  % 

(croutinen)  %  one-line  description  % 

%  SUPPORT-hOUTINLS  % 

(sroutinel)  %  one-line  description  % 

(srcutinel)  %  one-line  description  % 

FINISH 


6a2aa4a  1 
6a2aa4a  la 
6a2aa4a  la  1 
6a2aa4a 1a2 
6a2aa4a  1a5 
6a2aa4a  1a4 
6a2aa4a2 
6a2aa4a2a 
6a2aa4a2b 
6a2aa4a2c 
6a2aa4b 
6a2aa4b  1 
6a2aa4b2 
6a2aa4c 
6a2aa4c  1 
6a2aa4c2 
6a2aa4d 
6a2aa4d  1 
6a2aa4d2 
6a2aa4e 


(support-module)  6a2ab 

J  SUP  %  FILL  ProgramName  %  Support  Routine  %  6a2ab1 

%  DECLARATIONS  %  6a2ab1a 

%%  6a2ab  1  b 

%  PROCEDURE  %  6a2ab  1  c 

(procname)  %  CL:  ;  one -1 ine -de scr i pt i on  % 

PROCEDURE  (argl  <type>,  ...,  argn  %  =>  [meta- 
res]  resl  <type>,  ...,  resn  %);  6a2ab1c1 

i  Procedure  description  6a2ab1c1a 

FUNCTION  6a2ab 1 c 1  a  1 


none 

ARGUMENTS 

none 

RESULTS 

none 

NON-STANDARD  CONTROL 


%  Declarations  % 
tprocedure  body? 
%  Return  % 

RETURN ; 

END. 

n 

i  PROCEDURE  % 


6a2ab 1 c 1 
6a2ab  Ida 
6a2ab 1 c 1  a  1 
6a2ab 1 c 1  a  1  a 
6a2ab 1 c 1 a2 
6a2ab 1 c 1 a2a 
6a2ab 1 c 1 a3 
6a2ab 1c 1a3a 
6a2ab 1 c 1 a4 
6a2ab 1 c 1 a4a 
6a2ab 1 c 1 a5 
6a2ab 1 c 1 b 
6a2ab 1 c 1 c 
6a2ab 1 c 1 d 
6a2ab 1 c 1 d  1 
6a2ab  1  c  1  e 
6a2ab 1 c  1  e  1 
6a2ab  1  d 
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(procname)  %  CL:  ;  one-line-description  } 
PROCEDURE  (argl  <type>,  argn  }  =>  [meta- 


res]  resl  <type>,  resn 

%  Procedure  description 
F'UNCllON 
none 

ARGUMENTS 

none 

RESULTS 

none 

NON-STANDARD  CONTROL 
none 

% 

J  Declarations  % 
^procedure  body% 

%  Return  % 

RETURN ; 

END . 

%t 


t); 


FINISH 
( until -do ) 

UNTIL  until -clause  DO 
BEGIN 
END; 

(while-do) 

WHILE  while-clause  DO 
BEGIN 
END; 


( Jovial ) 


(directive ) 

IC0MP00L  ’ compool-flle '  name,  name  ; 
( source ) 

C0MP00L  coropool -name  ; 

BEGIN 

END 


6a2ab1d 1 
6a2ab 1 d 1  a 
6a2ab 1 d 1  a  1 
6a2ab 1 d 1  a  1  a 
6a2ab 1 d  1  a2 
6a2ab  Id  1a2a 
6a2ab 1 d 1  a  3 
6a2ab 1 d 1  a  3a 
6a2ab1d 1a4 
6a2ab  1  d  1  a4a 
6a2ab1d1a5 
6a2ab 1 d 1 b 
6a2ab Idle 
6a2ab 1 d 1 d 
6a2ab  1  d 1 d 1 
6a2ab Idle 
6a2ab  1  d  1  e  1 
6a2ab 1 e 

6a2ac 
6a2ac 1 
6a2ac  1  a 
6a2ac 1 b 

6a2ad 
6a2ad  1 
6a2ad  1  a 
6a2ad  lb 

6a  5 

6  a  3a 
6a  3a  1 

6a  3b 
6a3b1 
6a3b la 
6a3b 1 b 


(by-while)  6a3c 

FOR  index:  initial  BY  increment  WHILE  index  relational 
stopvalue;  6a3cl 

bEGIN  6a3c1a 

END  6a3c1b 

(then-while)  6a5d 


FOR  item-name  ThEN  formula  WhlLE  conditional-formula  ;  6a3d1 
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statement  ; 

6a5d  1  a 

( i f-el se  ) 

6a3e 

IF  conditional-formula  ; 

6a3e  1 

statement  ; 

6a3e  la 

ELSE  else-statement  ; 

6a3e2 

(call) 

6a3f 

prccedure-name§data-base( input- parameter,  input- 
parameter  :  output-parameter,  output-parameter) 

9 

"comment" 

6a  3f  1 

(declaration) 

6a3g 

PROC  procedure-name  data-allocator ( input-parameter , 
input-parameter  :  output-parameter,  output-parameter) 

9 

6a3g1 

BEGIN 

6a  3g 1  a 

"DECLARATIONS" 

6a3glb 

"PROCEDURE  BODY" 

6a3g1c 

END 

6a3g1d 

( program) 

6a3h 

! CCMPOOL !  ( • J73IO.CMP' ) ; 

6a3h1 

PROGRAM  programname  "  Description  " 

6a3h2 

BEGIN 

6a3h2a 

"  Program  description  " 

6a3h2b 

"  DECLARATIONS  " 

6a  3h2c 

"  EXTERNAL  PROCEDURES  " 

6a3h2c  1 

"  one-line-description  " 

REF  PROC  procname  ( input-parameter  1 ,  .. 

•  9 

input-parametern  :  output  parameter  1, 

•  •  •  9 

output-parametern )  ; 

6a  3h2c  1  a 

"  Procedure  description 

6a5h2c la  1 

FUNCTION 

6a3h2c  la  la 

none 

6a3h2c 1  a  la  1 

ARGUMENTS 

6a3h2c1a  1b 

none 

6a3h2c1a1b1 

RESULTS 

6a3h2c  laic 

none 

6a3h2c la  1c  1 

NON-STANDARD  CONTROL 

6a  3h2c 1  a  1  d 

none 

6a3h2c la  Id  1 

n 

6a3h2c 1  a  1  e 

BEGIN 

6a3h2c 1a2 

"  Declarations  " 

6a3h2c 1a3 

END 

6a  3h2c 1 a4 

"  SUBROUTINES  DEFINED  " 

6a3h2c2 
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DEF  PROC  (procname)  (input- 

parameter  1 , 

•  •  •  » 

input-parametern  :  output 

parameter  1  , 

•  •  •  * 

out  put -parametern )  ; 

6a3h2c2a 

"  Procedure  description 

6a3h2c2a 1 

FUNCTION 

6a3h2c2a la 

none 

6a3h2c2a la  1 

ARGUMENTS 

6a3h2c2a1b 

none 

6a3h2c2a 1 b 1 

RESULTS 

6a  3h2c2a 1 c 

none 

6a3h2c2a 1c 1 

NON-STANDARD  CONTROL 

6a 3h2c2a  Id 

none 

6a  3h2c2a 1 d 1 

it 

6a3hZc2a 1e 

BEGIN 

6a3h2c2a2 

"  Declarations  " 

6a3h2c2a3 

"procedure  body" 

6a3h2c2a4 

"  Return  " 

6a3h2c2a5 

RETURN; 

6a3h2c2a5a 

END 

6a3h2c2a6 

"  ITEMS  DEFINED  " 

6a3h2c3 

ITEM  itemname  itemtype; 

6a3h2c3a 

"program  body" 

6a3h2d 

END 

6  a  5h  2e 

** 

6  a  3  h  2  e  1 

(declaration) 

6a3i 

PROGRAM  program-name  ; 

6a3i  1 

BEGIN 

6a  3i  1  a 

"DECLARATIONS" 

6a3i lb 

"PROGRAM  BODY" 

6a3i 1c 

END  "program-name" 

6a3i id 

(switch) 

6a3  j 

SWITCh  numeric-formula  ; 

6a  3  j  1 

BEGIN 

6a3j  la 

[  ]  statement  ; 

6a3 j 1 b 

[ ]  statement  ; 

6a3 j 1c 

[ ]  statement  ; 

6a3 j Id 

END 

6a  3 j  1e 

( while ) 

6a  3k 

WHILE  conditional-formula  ; 

6a3*1 

controlled-statement  ; 

6a  3k  1  a 

( meta ) 

6a4 

( program) 

6a4a 

FILE  filename  %  one  line  comment  % 

6a4a  1 

META  program 

6a4a  la 
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%  COMPILER  HEADER  % 

DUMMY : 

ERROR : 

FLAGS: 

ATTRUBUTES: 

OPCODES: 

SET  : 

SIZE: 

FIELDS: 

%  SYNTAX  RULES  % 

identifier  =  rulebody; 

%  PRODUCTION  RULES  % 

ident i f ier [ test-expression  ]  => 
production-rule-body; 
ident i f ier [ test-expression  ]  => 
production-rule-body; 

%  VALUE  RULES  % 

identifier[test-expression  ]  :  = 
value-rule-body; 
identifier[test-expression]  := 
value-rule-body; 

FINISH 
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6a4a la  1 
6a4a la  la 
6a4a 1  a  1 b 
6a4a laic 
6a4a1a Id 
6a4a  la  1e 
6a4a  la  1  f 
6a4a  la  1g 
6a4a 1  a  1  h 
6a4a1a2 
6a4a  1a2a 
6a4a 1a3 
6a4a 1  a  3a 
6a4a 1 a3a 1 
6a4a 1  a  3b 
6a4a 1 a3b 1 
6a4a 1a4 
6a4a 1 a4a 
6a4a 1a4a 1 
6a4a 1a4b 
6a4a 1 a4b  1 
6a4a  1  b 
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Appendix  3:  Command  Sequence  Processor  Design  Specifications: 

AUGMENT  Journal  (290U6, )  Donald  1.  Andrews,  28  January  1973  7 

COMMAND  SEQUENCE  PROCESSOR  DESIGN  SPECIFICATIONS  7a 

Preface  7b 

This  report  is  a  user-level  description  of  an  National  Soft¬ 
ware  Works  facility  for  writing  and  executing  Command 
Sequences  for  NSW  tools  and  the  NSW  EXEC.  it  was  prepared 
for  the  RADC  NSW  project,  Contract  F  30602-75-C-0320  7 b 1 

Introduction  7c 

A  Command  Sequence  is  a  collection  of  one  or  more  commands 
with  a  unique  name.  The  user  invokes  a  Command  Sequence  by 


its  name;  the  NSW  Frontend  then  processes  the  Sequence  as  if 
the  user  were  typing  in  that  collection  of  commands  himself. 

The  commands  available  for  Command  Sequence  use  Include  the 
NSW  EXEC  commands,  all  split  tool  commands,  and  unsplit  tool 
input--in  short,  everything  the  user  is  allowed  to  do  in  the 
NSW,  including  the  use  of  other  Command  Sequences.  This 
Frontend  feature  and  its  associated  program  modules  are 
called  the  Command  Sequence  Processor.  7c1 

The  great  advantage  of  a  Command  Sequence  facility,  of 
course,  is  that  it  allows  users  to  "program"  in  the  command 
language  with  which  they  are  familiar;  that  is,  they  can 
specify  a  series  of  operations  and  have  this  "Program"  exe¬ 
cuted  at  any  time.  No  programming  language  must  be  learned. 
Although  this  kind  of  facility  is  available  on  many  time¬ 
sharing  systems,  it  is  generally  missing  the  control 
constructs  (e.g.,  IF,  FOR,  CASE)  so  heavily  used  in 
algorithmic  languages.  The  NSW  Command  Sequence  Processor 
includes  control  features,  and  hence  provides  a  complete 
language  for  "command  programming".  7c2 

The  CLI  grammar-driven  interface  system,  with  its  recogni¬ 
tion  modes,  feedback  and  noise  words,  and  help  features,  is 
a  significant  improvement  in  making  man-machine  interfaces 
coherent  and  natural.  The  inclusion  of  the  Command  Sequence 
facility  complements  a  powerful  system  by  bringing 

programming-like  capabilities  into  the  user  interface.  7c3 
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Capabilities  7d 

The  Command  Sequence  Processor  (CSP)  will  have  three  basic 
capabilities:  7d1 

Running  "canned"  command  strings,  in  the  same  manner  as 

TEhEX  Runfile.  7d1a 

Collecting  selections  from  the  user  at  Command  Sequence 
execution  time.  These  may  be  used  (perhaps  more  than 
once  during  an  execution)  as  user  supplied  arguments  in 
the  canned  commands.  7d1b 

Testing  conditions  and  doing  different  things  based  on 
the  outcome.  The  conditions  may  be  user  input,  vari¬ 
ables,  or  the  results  of  commands.  Further,  control 
constructs  allow  sequences  to  loop  over  a  group  of  com¬ 
mands  until  a  specified  condition  is  met.  7d1c 

The  CSP  operates  independently  of  the  Command  Language 
Interpreter,  and  hence  functions  across  the  EXEC  and  all 
tools.  The  sequences  may  contain  commands  to  run  a  tool, 
followed  by  commands  for  the  tool,  followed  by  more  EXEC 
commands,  and  so  forth.  7d2 


Vihat  the  User  Needs  to  Know  7e 

A  minimum  of  information  is  required  to  use  the  CSP.  The 
user  need  not  learn  a  new  language  since  a  Command  Sequence 
is  constructed  of  user-level  commands,  written  in  textual 
form  exactly  as  he  would  see  them  when  executing  such  com¬ 
mands.  The  command  words  are  written  in  full;  noise  words 
may  or  may  not  be  present.  7e1 

To  have  the  Command  Sequence  performed,  the  user  executes  a 
CSP  command  (available  at  the  EXEC  and  all  split  tools), 
specifying  a  Command  Sequence  name  and  arguments,  if  any. 

As  an  alternative,  he  can  have  the  sequence  name  available 
as  a  top-level  command  in  all  grammars  (EXEC  and  all  split 
tools).  7e2 

Although  Command  Sequences  cannot  be  invoked  from  an  unsplit 
tool  without  escaping  back  to  the  EXEC,  they  can  specify 
commands  for  unsplit  tools.  In  that  case,  the  Command  Se¬ 
quence  will  contain  the  text  that  would  be  typed  to  the  tool 
from  the  terminal,  which  may  not  be  as  readable  for  the  user 
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as  Command  Sequences  for  split  tools.  This  is  unavoidable 
since  the  command  recognition  mode  of  unsplit  tools  in  gen¬ 
eral  cannot  be  controlled. 

To  take  advantage  of  advanced  CSP  capabilities,  the  user 
must  know  the  syntax  and  semantics  of  the  control  constructs 
necessary  to  obtain  selections  from  him,  test  variables, 
perform  looping,  etc.  These  constructs  are  as  simple  and 
intuitive  as  possible. 


Command  Sequence  Generation 

A  Command  Sequence  may  be  generated  in  several  ways.  The 
most  obvious  is  to  write  the  text  or  retrieve  and  edit  an 
existing  Command  Sequence  with  an  editor.  However,  there 
are  more  convienent  methods. 

A  Command  Sequence  can  be  generated  with  the  aid  of  the  CSP 
itself.  Basically,  the  user  executes  a  CSP  command  to  begin 
recording  a  Command  Sequence.  from  that  point  on,  every  bit 
of  input  the  user  gives  is  incorporated  into  the  Command  Se¬ 
quence.  This  includes  EXEC,  split,  and  unsplit  tool  com¬ 
mands.  This  continues  until  the  user  terminates  the  record¬ 
ing  with  another  CSP  command.  The  result  is  a  Command  Se¬ 
quence  that  can  be  invoked  immediately  or  stored  for  future 
use . 

At  "start  recording"  time  the  user  may  specify  whether  or 
not  to  actually  execute  the  following  (recorded)  commands; 
that  is,  he  may  generate  a  Command  Sequence  without  actually 
executing  any  commands.  If  unsplit  tool  commands  are  given 
in  this  mode,  there  is  no  feedback  from  the  tool,  since  it 
is  not  really  executing.  For  split  tool  and  EXEC  commands, 
the  command  feedback  is  exactly  as  if  the  command  were  exe¬ 
cuted,  except  for  messages  that  would  come  from  the  tool  it¬ 
self  or  from  the  Works  Manager. 

The  Command  Sequence  Generator  Tool  may  also  be  used  to 
originate  a  Command  Sequence.  This  tool  aids  the  user  while 
he  steps  through  the  commands  for  his  sequence.  It 
simulates  the  "recording  without  executing"  case  above,  but 
makes  it  possible  to  specify  user  input  collection,  testing, 
branching,  and  looping  points  within  the  sequence.  The  re¬ 
sult  is  again  a  Command  Sequence  ready  for  use  with  the  CSP. 
This  tool  also  has  a  "debugging"  mode  whereby  Command 
Sequences  can  be  executed  in  slow  motion  and  modified  if 
necessary . 
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Command  Sequence  Control  Constructs 

This  section  is  intended  to  give  the  reader  an  idea  of  the 
form  and  capabilities  of  the  Command  Sequence  control 
constructs.  It  may  be  incomplete  in  some  respects.  The 
control  escape  character  is  printed  as  an  exclaimation  mark 
(!).  Command  words  are  capitalized  and  user  input  is  indi¬ 
cated  inside  angle  brackets  (<  and  >).  Noise  words  are  in 
parentheses . 

All  of  the  following  commands  may  be  executed  when  the  user 
is  in  any  split  tool  or  at  the  NSW  EXEC.  They  may  also  ap¬ 
pear  in  Command  Sequences.  Note  that  the  "canned"  Command 
Sequence  capability  can  be  used  when  only  the  "recording” 
and  "executing"  commands  are  known.  The  other  control  com¬ 
mands  are  for  more  advanced  capabilities. 

Executing  Command  Sequences 

!Do  ( CS  name)  <name> 

This  command  causes  the  Frontend  to  execute  commands 
in  the  Command  Sequence  named  "name". 

Recording  Command  Sequences 

iStart  Recording  (CS  name)  <name> 

<commands  to  be  in  Command  Sequence  "name") 

!Stop  Recording 

The  Start  and  Stop  commands  are  used  to  create  a  Com¬ 
mand  Sequence  named  "name". 

Getting  Selections  from  the  User  and  Showing  Strings 

IText  (from  user  into)  <varname> 

ICharacter  (from  user  into)  <varname> 

IWord  (from  user  into)  <varname> 

The  above  commands  cause  the  Command  Sequence  Proces¬ 
sor  to  collect  the  specified  kind  of  selection  from 
the  user  rather  than  obtaining  it  from  the  Command  Se¬ 
quence  text.  After  collecting  the  selection  from  the 
user,  the  CSP  stores  the  input  in  the  named  variable 
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("varname"  here)  and  directs  its  attention  back  to  the 
Command  Sequence  text.  These  commands  might  be  used 
to  allow  the  user  to  specify  a  file  name  or  other  ar¬ 
gument  in  a  command  the  Command  Sequence  is  perform¬ 
ing  . 

lSelection  (from  user  into)  <selvar> 

This  command  collects  a  specific  kind  of  selection 
from  the  user.  It  is  used  when  the  Command  Sequence 
writer  wants  to  get  user  input  appropriate  for  a  com¬ 
mand  in  his  Sequence.  To  do  so,  he  specifies  that 
command,  using  the  "Selection"  command  at  the  point  in 
which  user  input  is  required.  The  Selection  command 
then  looks  at  the  grammar  for  the  command  he  is  speci¬ 
fying  to  determine  what  kind  of  selection  is  needed 
from  the  user.  The  selection  input  is  stored  in 
"selvar"  and  at  the  same  time  is  provided  as  input  to 
the  selection  instruction.  In  the  following  example 
the  user  will  give  a  selection  for  the  Insert  State¬ 
ment  command.  The  selection  will  be  saved  in  variable 
"place"  for  possible  later  use: 

Insert  Statement  lSelection  (from  user  into) 

<place>  <CA> 

! (  <noise  words>  ) 

The  "noise  words"  command  ()  puts  the  given  text  in  the 
command  feedback  line,  allowing  the  CS  writer  to  prompt 
the  user  with  text  strings.  (Syntax  note:  In  this  com¬ 
mand  the  parentheses  indicate  what  the  user  inserts  in 
his  Command  Sequence  rather  than  noise  words  displayed  by 
a  command.)  The  following  illustrates  the  use  of  this 
command.  It  shows  how  to  collect  a  string  from  the  user 
and  save  it : 

! (  <some  text>  ) 

IText  (from  user  into)  <save> 

Conditionals,  Looping 

The  following  commands  control  the  CSP's  path  over  the 
Command  Sequence.  Their  arguments  are  single  commands. 

lEegin  (command  group)  <commands>  ! End 
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The  Begin  and  End  commands  make  several  commands 

(those  grouped  between  the  commands)  into  a  single 

command .  7g6b 1 

!lf  <command>  (then)  <command>  (else)  <command>  7g6c 

The  If  command  permits  the  execution  of  either  one 

command  or  another,  based  on  the  result  of  the  first 

command.  Every  command  has  a  lrue  or  False  result 

which  determines  whether  the  (then/True)  or 

(else/False)  commands  are  executed.  A  command  always 

has  the  result  TRUE  unless  on  of  the  following 

happens:  7g6c1 

A  remote  (backend)  call  returns  a  failure  result.  7g6c1a 

A  global  variable  is  explicitly  set  by  the  grammar 
during  command  execution  (the  variable's  name  is 


not  specified  at  this  time).  7g6c1b 

The  CLI  aborts  the  command  for  some  reason.  7g6c1c 

The  command  is  "1FALSE".  7g6c1d 

ILoop  <command>  7g6d 

The  Loop  command  causes  the  specified  "command"  to  be 
executed  repeatedly.  7g6d1 

! Exit  (loop)  7g6e 

This  command  causes  the  CSP  to  stop  performing  the 

innermost  loop  and  continue  with  the  command  following 

the  Loop  command.  7g6e1 

IRepeat  Loop  7g6f 

This  causes  the  CSP  to  start  over  at  the  first  command 
of  the  current  loop  being  performed.  7g6f1 

Variables  7g7 

iDefine  (variable  named)  <varname>  7g7a 

ILocal  (variable  named)  <locname>  7g7b 


The  Define  command  defines  a  "global"  variable;  that 
is,  the  variable  can  be  used  by  any  Command  Sequence. 
A  "local"  variable,  defined  by  the  Local  command,  is 
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used  only  in  one  specific  Command  Sequence  and  will  be 
deleted  when  that  sequence  is  completed.  A  variable 
defined  by  either  command  may  be  an  integer,  string, 
or  boolean.  The  type  is  determined  when  a  value  is 
assigned  to  it. 

lAssign  (variable)  <varname>  (_)  <expression> 

The  Assign  command  assigns  a  value  and  type  to  the 
variable  (either  global  or  local).  The  expression  is 
made  up  of  variables,  user  selections,  and  operators. 
(Although  the  operators  are  not  specified  at  this 
time,  they  will  include  addition,  subtraction,  and 
string  concatenation. 

!Test  (variable)  <varname> 

SRelation  <expression>  <relation>  <expression> 

The  Test  and  Relation  commands  are  intended  to  be  used 
as  commands  within  the  if  commands.  The  Test  command 
simply  sets  a  condition  flag  based  on  the  variable. 
True/ false  results  will  be  defined  for  all  variable 
types.  The  Relation  comand  applies  the  relational  op¬ 
erator  to  two  expressions--the  Relation  command  is 
TRUE  if  and  only  if  the  specified  relation  is  TRUE. 

!  name 

This  command  identifies  a  global  or  local  name.  It 
may  be  a  variable  name  or  a  Command  Sequence  name. 

The  Command  Sequence  will  be  executed  or,  if  the  vari¬ 
able  contains  a  string,  treated  as  a  Command  Sequence 
and  executed.  If  the  variable  is  not  a  string,  a  con¬ 
dition  flag  will  be  set. 

Miscellaneous 

t  <some  text>  % 

A  comment  may  be  inserted  in  the  Command  Sequence  text 
anywhere  a  space  is  allowed,  by  surrounding  the  com¬ 
ment  with  percent  signs. 

!  Null 

The  Null  command  does  nothing  and  always  has  the  value 
THUE  . 
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!  False 

The  False  command  does  nothing  and  always  has  the 
value  FALSE. 

!Echo  (y/n)  <Y  or  N> 

The  Echo  command  determines  whether  or  not  the  user 
sees  the  normal  command  feedback  text  at  his  terminal 
while  the  Command  Sequence  is  being  executed.  Echo  Y 
will  result  in  showing  the  user  the  feedback  for  each 
command  as  it  is  executed.  Echo  N  will  result  in 
showing  the  user  only  the  Command  Sequence  noise  words 
defined  by  the  noise  word  command. 
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Appendix  4:  Proposed  External  Design  for  a  Process  System  (PS): 

AUCrtENl  Journal  (47188,),  (Revised)  Bruce  L.  Parsley  8 

INTRODUCTION  8a 

This  document  proposes  an  external  design  for  a  Process  System  (PS).  This 
includes  the  user  interface  —  primarily  what  relevant  AUGMENT  commands  there 
are  —  and  a  new  artificial  language  called  the  Process  Language  (PL). 

8a  1 

The  basic  construct  with  which  we  are  concerned  here  is  called  a  "Process 
Command  Sequence"  or  "PCS".  This  is  basically  a  sequence  of  AUGMENT  commands 
as  described  in  the  text  of  statements  in  an  AUGMENT  file.  PCSs  are  basi¬ 
cally  the  same  as  the  old  Process  Commands,  but  with  several  additional 
features .  8a2 

Almost  nothing  is  said  in  this  document  about  EGVi  this  proposed  design  might 
be  implemented,  only  external  specifications  are  proposed  here.  Note  also 

that  initially  it  would  not  be  necessary  to  implement  this  design  in  full: 
there  are  several  features  that  could  be  added  after  the  initial  implementa¬ 
tion.  6a3 

Not  much  effort  has  been  taken  to  make  this  document  easy  to  understand  be¬ 
cause  of  its  role  as  a  draft  language  syntax.  Further  revisions  are  expected 
containing  examples  and  explanations  where  appropriate.  8a4 

USER  INTERFACE  8b 


There  are  two  ways  to  invoke  a  Process  Command  Sequence:  with  the  AUGMENT 
Process  command  and  via  a  "User  Command".  8b 1 

NB:  The  meta-language  used  in  this  section  to  describe  the  syntax  of  AUG¬ 
MENT  commands  is  something  of  a  mix  between  CML  and  the  meta-language  used 
in  ARC'S  user  documentation!  plus  some  informalities  of  my  own  devising. 

1  hope  it's  understandable.  861a 

Process  command :  8b2 

This  command,  which  is  a  universal  command  rather  than  just  a  BASE  com¬ 
mand,  has  the  following  syntax:  6b2a 

Process  FSTRUCTURE  (at)  SSEL  (CONFIRM  /  PARAMETERS  CONFIRM) 

8b2a1 

FSTRUCTURE  =  the  "filtered  structure"  that  will  replace  STRUCTURE 

8b2a1a 

PARAMETERS  =  see  next  section  8b2a1b 

Note  that  this  is  nearly  the  same  as  the  old  Process  command  with  the 
added  possibility  of  parameters,  which  are  discussed  in  the  next  section. 

6b2b 
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User  Commands: 


8b  3 


There  is  a  facility  for  users  to  define  and  invoke  their  own  User  Com¬ 
mands.  8b  3a 

Defining  User  Commands:  8b 3b 


A  new  command  is  added  to  the  EASE  subsystem  with  the 
Define  User-command  (at)  SSEL( Branch)  (with  level) 
MB:  The  "OK"  above  will  act  the  same  as  a  "1". 


following  syntax: 
8b3b1 

(OK/ 1/2)  CONFIRM 
8b3b1a 
8b3b1a1 


The  indicated  branch  is  assumed  to  be  a  properly  formed  PCS.  In  addi¬ 
tion  it  must  start  with  a  "label"  (see  next  section  for  the  definition 
of  a  label).  The  label  is  examined  and  used  as  the  associated  command 
word.  8b3b2 


Note  that  such  User  Commands  are  only  "defined"  for  that  session. 

In  subsequent  sessions  with  AUGMENT  the  User  Commands  will  be  un¬ 
known.  8b3b2a 

There  is  also  one  or  more  new  commands  in  the  USER0PT10NS  subsytem  that 
will  provide  for  the  definition  of  User  Commands.  User  Commands 
defined  in  this  manner  will  be  recognized  in  all  subsequent  AUGMENT 
sessions  until  the  user  deletes/excludes  the  definition,  e.g.,  by  using 
another  command  in  USER0PT10NS.  8b3b3 

This  USER0PT10NS  feature  is  analagous  to  USEROPTIONS'  Include  (sub¬ 
system/program)  feature.  6b3b3a 

Invoking  User  Commands:  8b3c 

After  a  User  Command  has  been  "defined"  by  any  of  the  BASE  or 
USER0PT10NS  commands,  the  FrontEnd  CH  will  act  as  if  "label"  were  a 
universal  command  at  the  specified  level.  Then  any  time  the  user  in¬ 
puts  the  proper  character (s)  at  the  base  command  state  of  any  sub¬ 


system,  the  CL1  will  act  exactly  as  if  the  user  had  input  the 
following:  8b3c1 

Process  branch  (at)  SSEL(branch)  <0K>  8b Sola 

PROCESS  LANGUAGE  8c 

Introduction  8c 1 

Following  is  a  complete,  formal  description  of  the  syntax  of  the  proposed 
Process  Language  (PL).  8c1a 
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The  meta-languge  in  which  the  description  is  written  is  ARC'S  usual  ver¬ 


sion  of  BhF  with  the  following  additions:  8c 1b 

"#<foo,  bar>"  is  equivalent  to  "foo  $(bar  foo)"  and 

"$<foo,  bar>"  is  equivalent  to  "[foo  $(bar  foo)]",  Scibl 

i.e.,  a  sequence  of  n  foos  separated  by  n-1  bars;  Sclbla 

"BP"  means  the  character  with  code  40B  (space);  8c1b2 


"CA"  means  the  character  with  code  04B  (control-D,  Command-Accept) ; 

8c1b3 

"CD"  means  the  character  with  code  30B  (control-X,  Command-Delete); 

8c1b4 

"CH"  means  any  character  except  SP,  CA,  or  ’|;  8c1b5 

"CH  ->  some  character"  means  any  number  of  characters  terminated  by, 
but  not  including,  the  specified  character.  Thus,  the  modi! '  ;d  BNF 
description  of  Label  below,  "Label  =  Ch  ->  *:;"  says  that  a  label  is 
any  number  (greater  than  or  equal  to  one)  of  characters  terminated  by 
(but  not  including)  a  colon.  8c1b6 

Rote  that  PL  is  a  fully  typed  and  type-checked  language.  PL  is  inter¬ 
preted  rather  than  compiled.  8c1c 

Some  information  about  the  semantics  is  included.  Only  things  that  are 
novel  or  that  might  be  obscure  are  discussed.  Readers  are  assumed  to  be 
familiar  with  typed,  block-structured  computer  languages.  8c Id 

ProcessCommandSequence  =  ICommand;  8c 2 

Command  =  NLSCommand  /  ProcessCommand  ;  8c2a 

NLSCommand  =  fCommandkord 

$ (Selection/Paramet er/Confirm/YesNo/Noise Words/Lev Ad j/ViewSpecs) 

['!  Result];  8c3 

CommandWord  =  CH  ->  SP  /  ' !  [  Command Word LhS  /  CommandWordExp  ]  ' !  ; 

8c  3a 

Selection  s  CH  ->  CA  /  ' !  [  SelectionLHS  /  SelectionExp  ]  ' !  ; 

8c  3b 

Parameter  *  Ch  ->  CA  /  ",  [  TextLHS  /  TextExp  ]  ' !  ; 

8c3c 

Confirm  s  CA  /  CD  /  • !  [  BooleanLHS  /  booleanExp  ]  ' !  ; 

8c  3d 

YesNo  =  CA  /  CY/'y)  ->  SP  /  CH/'n)  ->  SP  / 

' I  [  BooleanLHS  /  BooleanExp  ]  ' !  ;  8c 3e 

NoiseWords  ='(->•)  /"!("[  TextLhS  •_  /  TextExp  ]  ")!"  ; 

8c3f 
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Lev Ad j 

=  tCd/'u)  [CA]  /  •  | 

[  TextLHS 

/  TextExp  ]  ' ! 

» 

8c  3g 

ViewSpecs 

Result  =  ' : 

=  CA  /  CH  ->  CA  /  •! 

EooleanLhS; 

[  TextLHS 

•_  /  TextExp  ]  • | 

8c3h 

8c3i 

In  the  syntax  for  the  NLSCommands,  the  alternatives  before  the  last  are 
meant  to  represent  the  old  Process  Commands  stuff.  Note  that  it  is  not 
quite  accurate  or  complete,  e.g.,  a  user  may  have  changed  his/her  Command- 
Accept  character,  a  CD  occuring  almost  anywhere  would  screw  up  the 
"parse".  8c3j 

The  semantics  of  alternatives  of  the  form 
’  i  [LeftHandSide  ’_]  [Expression]  '! 
is  as  follows:  8c 3k 

8c3k1 

"thing"  the  CLI  is 
8c  3k  la 

8c3k2 

"thing"  the  CLI  is 
user  response  is  stored 
the  PL  program) . 

8c3k2a 

[Expression!  8c3k3 

The  Expression  is  evaluated  and  fed  to  the  CLI  as  if  the  user  had 
typed  it  in.  8c3k3a 

Note  that  NLSCommands  may  have  a  Result.  If  an  NLSCommand  has  a  Result 
present,  the  success  or  failure  of  the  execution  of  that  command  is  stored 
in  the  indicated  BooleanLHS  and  is  thus  subsequently  available  to  the  PL 


program.  8c31 

ProcessCommand  =  '!  (  Label  [ParameterList]  /  Declaration  /  Statement  )  ; 

8c  4 

Label  =  CH  ->  8c4a 

ParameterList  -  '(  $<.ID  ':  Typeldentifier ,  ',>  * ) ;  8c4b 

ProcessCommands  that  have  Labels  can  be  used  as  ebjects  of  Process  Branch 
commands.  If  they  are  so  used  and  have  a  ParameterList,  the  user  will  be 
prompted  to  provide  the  values  for  the  parameters.  8o4c 

Declaration  =  Label  [Persistence) 

(  TypeDec  /  VariableDec  /  ProcedureDec  /  RoutineDec  )  ;  8c5 


Characters  are  taken  from  the  user  until  the 
looking  for  is  complete. 

iLeftHandSideJ, 

Characters  are  taken  from  the  user  until  the 
looking  for  is  complete  and  the  value  of  the 
in  the  indicated  LeftHandSide  (a  variable  in 
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Label  =  CH  ->  8c5a 

Persistence  =  "TEMPORARY"  /  "SEQUENCE"  /  "SESSION"  ;  8o5b 

Note  that  Declarations  may  occur  anywhere  in  a  PL  program.  Note  also  that 
because  PL  programs  are  interpreted,  the  scope  of  a  Declaration  name  is 
determined  by  the  execution  path,  not  lexically.  A  Declaration  name  is 
known  and  may  be  referenced  any  time  between  the  time  the  interpreter  has 
seen  the  declaration  and  the  time  the  variable  is  destroyed.  The 
Persistence  determines  when  the  variable  will  be  destroyed:  8c5c 

TEMPORARY  variables  are  destroyed  when  a  RETURN  statement  is  executed. 

8c5c1 

SEQUENCE  variables  are  destroyed  when  a  FINISH  statement  is  executed. 

8c5c2 

SESSION  variables  are  destroyed  when  an  AUGMENT  "session"  ends. 


6c  5c  3 

The  default  Persistence  is  TEMPORARY.  8c5c4 

TypeDec  =  "TYPE"  '=  TypeSpecification  ;  8c5d 

VariableDec  =  TypeSpecification  [(’_/'=)  Expression]  ;  8c5e 

ProcedureDec  =  ProcedureTS  ’s 
$(  Declaration  /  Statement  ) 

"SEND."  ;  8c5f 

RoutineDec  =  RoutineTS  ;  8c5g 

TypeSpecification  = 

ArrayTS  /  BooleanTS  /  CharacterTS  /  CommandWordTS  /  EnumerationTS  / 
IntegerTS  /  IntervalTS  /  ProcedureTS  /  RoutineTS  /  SelectionTS  / 
TextTS  ;  6c6 

OrderedTS  =  SelectionTS  /  CountTS  ; 

CountTS  s  CharacterTS  /  EnumerationTS  /  IntgrTS  ; 

IntgrTS  s  IntervalTS  /  IntegerTS  ;  8c6a 

StringTS  s  CommandWordTS  /  SelectionTS  /  TextTS  ;  8c6b 

RangeTS  s  IntervalTS  /  EnumerationTld  ;  8c6c 


ArrayTS  =  ArrayTId  /  ArrayTypeConstructor ; 

booleanTS  =  BooleanTld; 

CharacterTS  s  CharacterTld; 

CommandWordTS  s  Command Word T Id; 

EnumerationTS  s  EnumerationTld  /  Enumeration! ypeConstructor; 
IntegerTS  s  IntegerTId ; 

IntervalTS  «  IntervalTId  /  IntervalTypeConstructor; 
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ProcedureTS  =  ProcedureTId  /  ProcedureTypeConstructor ; 

RoutineTS  =  RoutineTld  /  RoutineTypeConstructor ; 

SelectionlS  =  SelectionTld; 

TextTS  =  Text! Id;  8c6d 

ArrayTypeConstructor  =  "ARRAY"  Rangel'S  "OF"  TypeSpecification; 

8c6e 

EnumerationTypeConstructor  =  '{  #<.1D,  ',>  '};  8c6f 

IntervalTypeConstructor  =  ('(/'[)  OrderedExp  OrderedExp  (')/'])  ; 

8c6g 

ProcedureTypeConstructor  =  "PROCEDURE"  [ParameterList]  [ReturnsClause] ; 

8c  6h 

ParameterList  =  '(  $<.ID  * :  Typeldentifier ,  ',>  *);  8c6h1 

ReturnsClause  =  "RETURNS"  ’(  $<TypeIdentifier ,  ',>  •);  8c6h2 

RoutineTypeConstructor  = 

( "PER0UTlNE"/"bER0UTlNE" )  [ParameterList]  [ReturnsClause];  8c6i 

ParameterList  =  '(  $<.ID  Typeldentifier,  ',>  ');  8c6i1 

ReturnsClause  =  "RETURNS"  ’(  $<Typeldentifier,  ’,>  ');  8c6i2 

Before  a  PL  program  can  call  an  L10  routine  in  the  FrontEnd  or  Backend, 
the  name  and  calling  sequence  of  that  routine  must  be  specified.  Note 
that  this  is  analagous  to  CML  programs.  8c6i3 

Typeldentifier  = 

ArrayTId  /  BooleanTld  /  CharacterTld  /  CommandWordTId  /  EnumerationTld  / 
IntegerTld  /  IntervalTId  /  ProcedureTId  /  RoutineTld  /  SelectionTld  / 

TextTId  ;  8c7 

OrderedTId  =  SelectionTld  /  CountTld  ; 

CountTId  =  CharacterTld  /  EnumerationTld  /  IntgrTld  ; 
lntgrTld  =  IntervalTId  /  IntegerTld  ;  8c7a 

StringTId  =  CommandWordTId  /  SelectionTld  /  TextTId  ;  8c7b 

RangeTld  =  EnumerationTld  /  IntervalTId  ;  6c7c 

ArrayTId  =  .ID; 

BooleanTld  =  .ID  /  "BOOLEAN"  ; 

CharacterTld  =  .ID  /  "CHARACTER"  ; 

CommandWordTId  =  .ID  /  "COMMAND-WORD"  ; 

EnumerationTld  =  .ID; 

IntegerTld  =  .ID  /  "INTEGER"  ; 

IntervalTId  =  .ID; 

ProcedureTId  s  .ID; 
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RoutineTId 

=  .ID; 

SelectionTld 

=  .ID  /  "SELECTION"  ; 

\ 

TextTId 

s  .ID  /  "TEXT"  ; 

\  8c7d 

Selections  are  meant  to  hold  AUGMENT  addresses  in  text  form,  i.e.,  they 
should  be  convertable  by  ’caddexp’,  AUGMENT’  address  evaluation  routine, 
into  L10  TEXT  POINTEhS.  8c7e 

Note  also  that  when  Selections  are  taken  as  pointers  to  nodes  in  an  AUG¬ 
MENT  file  tree  structure,  they  are  strictly  ordered  if  they  point  to  the 
same  file.  Thus  there  can  be  intervals/sequences  of  Selections  that  can 
be  iterated  over.  6c7f 

Statement  =  [Label]  ( 

AssignmentStmt  /  ElockStmt  /  BumpStmt  /  CallStmt  /  CaseStmt  /  EchoStmt  / 
ExitStmt  /  FinishStmt  /  GotoStmt  /  lfStmt  /  IterativeStmt  /  NullStmt  / 


RepeatStmt  /  ReturnStmt  )  ;  8c8 

Label  =  CH  ->  8c8a 

AssignmentStmt  =  #<LeftHandSide ,  ’,>  (KExpression,  ',>;  8c8b 

blockStmt  =  "BEGIN"  $Statement  " ! END" ;  8c8c 

BumpStmt  =  "BUMP" 

["UP"/"D0WN"]  #<CountLHS,  ’,>  / 


[ " NEXT" / " BACK" / " SUCCESSOR" / "PREDECESSOR" ]  #<SelectionLHS,  ',>  ; 

8c8d 

The  defaults  are  UP  and  SUCCESSOR.  8c8d1 

Note  that  since  Selections  have  order,  they  may  be  BUMPed. 

8c8d2 

CallStmt  =  "CALL"  Call;  6c8e 

Call  =  (  RoutineExp  /  SelectionExp  )  [  '(  $<Expression,  ',>  ')  ]; 

8c8e1 

Any  of  FEROUTINEs,  BEROUTINEs,  or  PL  PROCEDURES  may  be  Called. 

8c8e2 

CaseStmt  =  "CASE"  Expression  "OF" 

IStmtChoice 

" ! ENDCASE"  •:  Statement;  8c8f 

StmtChoice  =  'I  #<RelationTail ,  ',>  Statement;  8c8f1 

RelationTail  = 

(’s/*#)  Expression  / 

(’>/•</">="/"<=")  OrderedExp  / 

["NOT"]  "IN"  RangeTS  ;  8c8f2 
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Note  that  since  Selections  have  order,  they  may  be  compared/related 
using  any  of  the  comparison/relational  operators.  8c8f3 

EchoStmt  =  "ECHO"  BooleanExp;  8c8g 

The  value  of  the  BooleanExp  determines  whether  the  user  will  see  things 
happen  in  the  Command  Feedback  Window.  8c8g1 

ExitStmt  =  (  "EXITBLOCK"  /  "EX1TL00P"  /  "EX1TCASE"  )  [IntgrExp]; 

8c8h 

FinishStmt  =  "FINISH";  8c8i 

There  is  an  implicit  FinishStmt  after  the  end  of  any  PCS,  whether  the 
limits  of  the  sequence  was  determined  by  the  selections  in  a  Process 
Group  command  or  any  other  way.  8c8i1 

GotoStmt  =  "GOTO"  SelectionExp;  8c8j 

IfStmt  ~ 

"IF"  BooleanExp  "ThEN"  Statement 

["!ELSE"  Statement];  8c8k 

IterativeStmt  = 

[  Iteration  /  Assignation  ]  [ConditionTest]  "DO" 

Statement 

[ConditionTest];  8c8l 

Iteration  =  [  "FOh"  OrderedLHS  ]  "IN"  RangeTS  [Increment]; 

8c8l1 

Increment  = 

( "UP" /"DOWN" )  [IntgrExp]  / 

"USING"  ("NEXT"/"BACK"/"SUCCLSSOh"/"PR£DECESSOR" )  ;  8c8l1a 
The  USING  can  be  used  only  if  the  OrderedExp  in  the  RangeTS  is  of 


the  Selection  TYPE.  8c6l1b 

Assignation  =  "FOh"  LefthandSide  '^.Expression  ',  Expression; 

8c8l2 

ConditionTest  s  ("WHILE"/"UNTIL")  BooleanExp;  8c8l3 

NullStmt  =  "NULL";  8c8m 

RepeatStmt  = 

(  "REPEATBLOCK"  /  "REPEATLOOP"  )  [IntgrExp]  / 

"REPEATCASE"  [IntgrExp]  "WITH"  Expression;  6c8n 

ReturnStmt  =  "RETURN"  [  '(  $<Expression,  ',>  ')  ];  8c8o 


A  ReturnStmt  executed  at  that  "highest"  level  acts  as  a  FinishStmt. 

8c8o1 
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LefthandSide  =  LHSList  / 

ArrayLHS  /  EooleanLhS  /  CharacterLHS  /  CommandWordLHS  /  EnumerationLhS  / 
IntegerLHS  /  IntervalLKS  /  ProcedureLHS  /  houtineLHS  /  SelectionLHS  / 
TextLKS  ;  6c9 

LHSList  =  '(  2#<LefthandSide,  • f>  ')  ;  8c9a 


This  form  may  be  used  to  store  multiple  return  values  from  a  Call. 

6c9a1 

OrderedLHS  =  SelectionLHS  /  CountLKS  ; 

CountLHS  =  CharacterLhS  /  EnumerationLKS  /  IntgrLHS  ; 

IntgrLHS  =  IntervalLHS  /  IntegerLHS  ;  6c9b 

StringLHS  =  CommandViordLHS  /  SelectionLhS  /  TextLHS  ;  6c9c 


hangeLHS  =  EnumerationLHS  /  IntervalLHS  ; 


ArrayLHS 

BooleanLHS 

CharacterLhS 

CommandWordLHS 

EnumerationLHS 

IntegerLHS 

IntervalLHS 

ProcedureLHS 

HoutineLHS 

SelectionLHS 

TextLHS 


.ID  /  IndexedHeference 
•ID  /  IndexedHeference 
.ID  /  IndexedHeference 
.ID  /  IndexedHeference 
.ID  /  IndexedHeference 
.ID  /  IndexedHeference 
.ID  /  IndexedHeference 
.ID  /  Indexedheference 
.ID  /  Indexedheference 
.ID  /  Indexedheference 
.ID  /  Indexecheference 


Indexedheference  =  ArrayLHS  '[  OrderedExp 


8c  9d 


6c9e 

8c9f 


Expression  = 

ArrayExp  /  BooleanExp  /  CharacterExp  /  CommandWordExp  /  EnuraerationExp  / 
IntegerExp  /  IntervalExp  /  ProcedureExp  /  HoutineExp  /  SelectionExp  / 
TextExp  ;  8cl0 


OrderedExp  =  SelectionExp  /  CountExp  ; 

CountExp  =  CharacterExp  /  EnumerationExp  /  IntgrExp  ; 


IntgrExp  =  IntervalExp  /  IntegerExp  ;  8c1Ca 
StringExp  =  CommandWordExp  /  SelectionExp  /  TextExp  ;  8c 10b 
hangeExp  s  EnumerationExp  /  IntervalExp  ;  8c 10c 
ArrayExp  =  AnyTypeExp  /  '[  #<Expression,  ',>  ']  ;  6c10d 
BooleanExp  =  AnyTypeExp  /  8c10e 
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EooleanExp  "OR"  BooleanExp  / 

BooleanExp  "AND"  EooleanExp  / 

"NOT"  BooleanExp  /  8c10e1 

Expression  ('=/'#)  Expression  / 

OrderedExp  ('>/'</">="/"<=")  OrderedExp  / 

OrderedExp  ["NOT"]  "IN"  RangeTS  /  6c10e2 

"EXIST"  '(  SelectionExp  •)  /  8c10e5 

This  expression  will  test  whether  or  not  the  specified  AUGMENT  ad¬ 
dress  actually  exists.  8c10e3a 

"TRUE"  /  "FALSE"  ;  8c10e4 

CharacterExp  =  AnyTypeExp  /  ("F1RST"/"LAST")  IntervalTld  /  .SRI  j 

8c10f 

The  OrderedExp  associated  with  the  IntervalTld  must  be  of  CHARACTER 
TYPE.  8c10f 1 

CommandWordExp  =  AnylypeExp  /  .SR  ;  8c10g 

EnumerationExp  =  AnyTypeExp  /  ("FIRST"/"LAST")  RangeTld  ;  8c10h 

The  OrderedExp  associated  with  the  RangeTld  must  be  of  Enumeration 
TYPE.  8c 1 0h  1 


IntegerExp  =  AnyTypeExp  /  8c10i 

IntgrExp  ('+/'-)  IntgrExp  / 

IntgrExp  ( ' */' //"MOD" )  IntgrExp  / 

'-  IntgrExp  8c 1 Oil 

"LEVEL"  •(  SelectionExp  ')  /  8c10i2 

The  AUGMENT  "level"  of  a  statement.  8c10i2a 

( ArrayLHS/StringLHS/ .SR/Rangelld)  ".L"  / 

( "FIfiSTV'LAST" )  RangeTld  /  8c10i3 

("M1N"/"MAX")  '(  2#<lntgrExp,  ',>  ')  / 

"ABS"  '(  IntgrExp  ’)  /  8c10i4 

.NUM  ;  8c 10i5 

IntervalExp  =  AnyTypeExp  /  8c10j 
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intervalExp  ('+/'-)  IntervalExp  / 

IntervalExp  ( ' */' //"MOD")  IntervalExp  / 

*-  IntervalExp  8c10j1 

"LEVEL"  '(  SelectionExp  ')  /  8c10j2 

The  AUGMENT  "level"  of  a  statement.  8c10j2a 

(ArrayLHS/StringLhS/.SR/RangeTId)  ".L"  / 

( "F1RST"/"LAST" )  RangeTld  /  8c10j3 

("M1N"/"MAX")  '(  2#<IntervalExp,  ' ,>  * )  / 

"ABS"  '(  IntervalExp  •)  /  8c10j4 

.NUM  ;  8c10j5 

ProcedureExp  =  AnyTypeExp  /  '  $  ProcedureLHS  ;  8c10k 

RoutineExp  =  AnyTypeExp  /  '  $  RoutineLHS  ;  8c 101 

SelectionExp  =  AnyTypeExp  /  8c10m 

("BACK" /"DOWN" /"END"/" HEAD" /"NEXT" /"ORIGIN"/ 

"PREDECESSOR" /"SUCCESSOR" /"TAIL" /"UP" ) 

’(  SelectionExp  ')  /  8c 10ml 

These  Expressions  ennable  moving  around  AUGMENT  tree-structured 
files.  8c10m1a 

.SR  ;  8c10m2 

TextExp  =  AnyTypeExp  /  .SR  ;  8c10n 

AnyTypeExp  =  ' (  Expression  ')  /  .ID  / 

AssignmentExp  /  Call  /  CaseExp  /  IfExp  /  IndexedReference  /  UserExp  ; 

8c10o 

AssignmentExp  =  LefthandSide  ('_/":=")  Expression  ;  8c10o1 


Call  =  (  RoutineExp  /  SelectionExp  )  '(  $<Expression,  ',>  ')  ; 

6c10o2 

Any  of  FEROUTINEs,  BEROUTINhs,  or  PL  PROCEDURES  may  be  Called. 

8c10o2a 

CaseExp  =  "CASE"  Expression  "OF" 

#ExpChoice 

" | ENDCASE"  Expression;  8c10o3 

ExpChoice  =  '!  #<RelationTail,  Expression;  8c10o3a 

RelationTail  = 
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('=/'#)  Expression  / 

('>/•</">="/"<=")  OrderedExp  / 

["NOT"]  "IN"  RangeTS  ;  8c10o3b 

If Exp  =  "IF"  BooleanExp  "THEN"  Expression  "ELSE"  Expression; 

8c10o*» 

IndexedReference  =  ArrayLHS  •[  OrderedExp  ']  ;  8c10o5 

UserExp  =  '  i  (LeftHandSide  /  Typeldentifier )  '!;  8c10o6 

The  user  will  be  interactively  prompted  to  provide  a  value.  The 
user-provided  value  will  be  evaluated  according  to  the  TYPE  indi¬ 
cated  by  the  LeftHandSide  or  Typeldentifier.  8c10o6  i 

The  user  will  be  inputting  a  LSEL.  Thus  he  or  she  may  BUG  rather 
than  type.  8c10o6b 

CNwM  =  Comment  /  NoiseWords  /  Message  ;  8c11 

Comment  =  '%  ->  '%;  8c 11a 

NoiseWords  =  '(  ->  *)?  8c11b 

Message  =  ->  8c11c 


A  CNwM  may  appear  any  place  a  space  may  appear.  Comments  are  ignored. 
The  value  of  a  NoiseWord  will  appear  in  the  Command  Feedback  Hindow 
enclosed  in  parentheses.  The  value  of  a  Message  will  appear  in  the  TTY 
Window  enclosed  in  semi-colons.  Gelid 

Both  NoiseWords  and  Messages  may  be  variable.  They  both  may  contain: 
Expression  'i.  If  so,  the  Expression  is  evaluated,  converted  to  text  if 
necessary,  and  shown  in  the  appropriate  window.  8c11e 
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CML:  The  Command  Meta  Language.  The  user  interface  of  all  NLS  subsystems  is 
specified  in  CML.  9a 

DAD:  Do-All  Debugger  9b 

encapsulation:  There  is  a  facility  for  encapsulating  programs  for  NLS.  This 
facility  allows  programs  (.sav  or  .exe  files)  that  were  written  without  NLS 
in  mind  to  be  executed  as  sub-forks  of  NLS.  Encapsulated  programs  may  get 
their  input  from  NLS  files  or,  to  a  degree,  interactively  from  the  user. 
Similarly  for  the  output  from  encapsulated  programs.  Currently  the  Meta, 

L10,  and  CML  compilers  are  encapsulated.  9c 

fork:  TENEX's  term  for  what  is  most  often  called  a  "process"  in  computer 
terminology  9d 

INCLUDE  statement:  We  have  facility  for  "including"  a  group  of  statements 
from  any  NLS  file  as  if  that  group  of  statements  were  actually  present  in 
place  of  the  INCLUDE  statement.  9e 

index,  a  LIBRARY:  An  index  file  is  produced  by  the  LIBRARY  subsystem  from  a 
source  code  file.  It  contains  a  sorted  list  of  all  the  global  variable  and 
procedure  names  in  that  module  with  pointers  to  their  locations  in  the  source 
code  file.  See  "SysGuide".  9f 

JDAD:  JOVIAL  DAD  9g 

L10:  An  ALGOL-like  language  with  additional  string  manipulation  facilities. 
L10  is  the  primary  implementation  language  of  NLS.  9h 

LIERARY  subsystem:  An  NLS  subsystem  that  will  conditionally  perform  various 
clerical  and  bookkeeping  chores  on  a  collection  of  modules,  e.g.,  compiling, 
loading,  printing,  indexing,  contructing  SysGuides.  The  reference  manual  may 
be  found  in  <29 151 , > -  9i 

Meta:  A  "meta-compiler"  system  used  to  produce  compilers.  L10,  CML,  and  of 
course  Meta  are  written  in  Meta.  9j 

PROGRAMS  subsystem:  An  NLS  subsystem  having  commands  of  use  to  programmers, 
e.g.,  Compile,  Insert  Procedure.  Users'  documentation  may  be  found  in 
<ArcDocumentation, Programs, >.  9k 

subsystem,  an  NLS:  NLS  may  be  viewed  as  a  collection  of  subsystems.  Each 
subsystem  has  a  collection  of  commands  that  are  functionally  related,  e.g., 
the  BASE  subsytem  has  editing  commands  (and  some  others).  91 
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Glossary 


SysGuide :  A  sorted  collection  of  indices  (see  "index"  above).  Typically  a 
SysGuide  will  contain  the  indices  from  all  the  modules  in  the  entire  scope  of 
an  address  space  (in  a  fork  or  .sav  file).  A  SysGuide  may  be  used  in  the  NLS 


Jump  (to)  Name  External  command.  9m 

template:  See  <SsSrc,Programs-Templates,>.  A  group  of  NLS  statements  used 
by  the  PROGRAMS  subsystem  Insert  command,  e.g.,  9n 

UNTIL  until-clause  DO  gnl 

BEGIN  9n1a 

END’.  9n1b 


templates  file:  An  NLS  file  containing  templates,  see 
<SsSrc,Programs-Templates,>.  9o 
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MISSION 

of 

Rome  Air  Development  Center 

RAVC  plant*  and  execute*  research,  development,  test  and 
selected  acquisition  programs  in  support  of  Command,  Control 
Communications  and  Intelligence  (C3I)  activities.  Technical 
and  engineering  support  within  areas  of  technical  competence 
is  provided  to  ESV  Program  Offices  IPOs )  and  other  ESO 
elements.  The  principal  technical  mission  areas  are 
communications,  electromagnetic  guidance  and  control,  sur¬ 
veillance  of  ground  and  aerospace  objects,  intelligence  data 
collection  and  handling,  information  system  technology, 
ionospheric  propagation,  solid  state  sciences,  microwave 
physics  and  electronic  reliability,  maintainability  and 
compatibility. 


